FZM-S567 
15  May  1973 


Contract  No.  F3361 5-69-C-1494 


STRUCTURAL  MATERIALS  &  DEVELOPMENT 


ADVANCED  COM 


ANISOTROPIC  CURVED  PANEL  ANALYSIS 


D.J.  Wilkins 


Advanced  Composites  Division 
Air  Force  Materials  Laboratory 
Wright- Patterson  Air  Force  Base,  Ohio 


i>,i 


4 


ixnc  QUALIXf  IN8PEGTE0  1 


CSENERAL  DYNAMICS 

Convair  Aerospace  Division 


"ijlSriilBUTlON  STATgMEljOr 

Approved  for  public  release; 
Distribution  TTrHmitod 


C/  /  A/ 


This  document  is  subject  to  special  export  controls  and  each 
transmittal  to  foreign  governments  or  foreign  nationals  may  be 
made  only  with  prior  approval  of  the  Air  Force  Materials  Labora¬ 
tory,  Advanced  Composites  Division  (MAC),  Wright-Patterson  Air 
Force  Base,  Ohio  45433. 

The  distribution  of  this  report  is  limited  because  the  report 
contains  technology  identifiable  with  items  on  the  strategic 
embargo  list  excluded  from  export  or  reexport  under  U.  S.  Export 
Control  Act  of  1949  as  implemented  by  AFR  400-19. 

This  docximent  or  any  part  thereof  may  not  be  reproduced  or  pub 
lished  in  any  form  without  prior  approval  of  the  cognizant  govern¬ 
ment  agency.  This  technical  management  report  is  submitted  for 
administrative  purposes  and  the  information  contained  herein  is 
tentative  and  subject  to  changes,  corrections,  and  modifications. 
Release  of  this  document  to  the  Clearinghouse  for  Federal, 
Scientific,  and  Technical  Information  and  the  Defense  Documentation 
Center  is  not  authorized. 


OSNERAL  DYNAMICS 

Convair  Aerospace  Division 

P.O.Box  748.  Fort  Worth.  Texas  76101  •817-732-4811 
LG;kg/l494-FW#060-117 

15  June  1973 

Contract  F33615-6S-C-1494 
Contract  Compliance  Submittal 
General  Dynamics  Report  FZM-5567 

Air  Force  Materials  Laboratory 
Wright-Patterson  Air  Force  Base,  Ohio  45433 

LC/Mr.  W.  R.  Johnston 
Contract  F33615-69-C-1494 
Item/Sub- 1  tern  lAA;  BO 12 

(A)  Six  (6)  copies  of  General  Dynamics  Report 
FZM-5567  "Anisotropic  Curved  Panel  Analysis", 
dated  15  May  1973 

(B)  Distribution  List  for  General  Dynamics  Report 
FZM-5567 

(C)  Data  Transmittal  Sheet  F1494-E-72,  dated  14  June  1973 

1.  Inclosure  (A)  is  submitted  in  compliance  with  Sequence  No.  B012  of 
Exhibit  B,  DD  Form  1423  and  Item  lAA  of  Part  I (A)  of  the  Schedule  to 
Contract  F33615-69-C-1494. 

2.  Inclosure  (B)  is  forwarded  to  show  distribution  of  Inclosure  (A) 
to  other  facilities. 

3.  It  is  requested  that  one  (1)  copy  of  Inclosure  (C)  be  acknowledged 
and  returned  as  specified. 


Subject : 

To: 

Attention: 

Inclosure : 


GENERAL  DYNAMICS 
Convair  Aerospace  Division 

H.  J.  Kauffman 

Chief  of  Administrative  Support 
cc:  w/Incl's.  (A)  and  (B) 


Direct  transmittal  is  approved  by  the 
Air  Force.  Your  answer,  if  any,  will 
be  forwarded  through  regular  Air  Force 
channels  to  General  Dynamics,  Convair  I 
Aerospace  Division,  Fort  Worth,  Texasv 


AFSC 

WPAFB-Ohio  45433 

Attn:  4950/PMRB,  Robert  E.  Gett 

cc: 

AF  (6) 

TM 

AFCMD/CMFCW 

PD 

P.  D.  Shockey,  2884 


M.  S.  Howeth,  2860 
M.  D .  Carter,  1128 
A.  Nole,  1214  (w/Incl.  C) 

L .  G .  Graham,  2236 
Engr.. Files,  2228 
Corres .  Control,  1137 
Contract  Records,  1135  (W/Inci 


Inclosure  (B) 
1494-FW//060-li7 


DISTRIBUTION  LIST 

Addressee  No.  of  Copies 

1.  Air  Force  Materials  Laboratory  1 

Wright-Patterson  AFB,  Ohio  45433 

Attn:  Dr.  Tsai/CA 

2.  Air  Force  Materials  Laboratory  1 

Wright-Patterson  AFB ,  Ohio  45433 

Attn:  LAM.  (Technical  Library) 

3.  Air  Force  Materials  Laboratory 

Wright-Patterson  AFB,  Ohio  45433  1 

Attn:  LNC/Mr .  J.  Ray 

4.  Air  Force  Materials  Laboratory  ^  1 

Wright-Patterson  Air  Force  Base,  Ohio  45433 

Attn:  LN/M.  H.  Schwartz 

5.  Air  Force  Materials  Laboratory  _  1 

Wright-Patterson  AFB,  Ohio  45433 

Attn:  LTF/T.  Cordell 

6.  Air  Force  Flight  Dynamics  Laboratory  2 

Wright-Patterson  AFB,  Ohio  45433 

Attn:  FBC  (Mr.  P.  A.  Parmley) 

7.  Air  Force  Flight  Dynamics  Laboratory  1 

Wright-Patterson  AFB,  Ohio  45433 

Attn:  FYS  (Mr.  M.  Shirk) 

8.  Hq.  AFSC  (DLTA)  1 

Andrews  Air  Force  Base 

Washington,  D.  C.  20331 
Attn:  Dr.  S.  W.  Strauss 

9.  Aeronautical  Systems  Division  1 

Wright-Patterson  AFB,  Ohio  45433 

Attn:  XRHD/Mr.  R.  Stalder 


Iriclosure  (B) 
1494-FW#060-117 


Addressee  No.  of  Copies 

10.  Aeronautical  Systems  Division  1 

Wright-Patterson  AFB,  Ohio  45433 

Attn:  ENFSR/Mr.  D.  W.  Hinrichs 

11.  Aeronautical  Systems  Division  2 

Wright-Patterson  AFB,  Ohio  45433 

Attn-:  ENFS/Mr.  G.  Purkey 

12.  Naval  Air  Develofiment  Center  1 

Johnsville,  Warminster,  Pa.  18974 

Attn:  AMFA-3/W.  T.  Miller 

13.  Naval  Air  Engineering  Center  1 

Philadelphia,  Pa.  19101 

Attn:  ASL/Mr.  R.  Mollela 


14.  Naval  Air  Development  Center  1 

Aero  Structures  Department 

Code  SiD-8 

Johnsville,  Pennsylvania  18974 
Attn:  Mr.  A.  Manno 

15.  Jet  Propulsion  Laboratory  1 

4800  Oak  Grove  Drive 

Pasadena,  California  91103 
Attn:  Mr.  Jensen 

\ 

16.  Department  of  Aeronautics  and  Astronautics  1 

Massachusetts  Institute  of  Technology 
Cambridge,  Mass.  02139  ' 

Attn:  Prof.  Theodore  H.  H.  Pian 

Rm.,  33-311 

Department  of  Mechanical  Engineering 
Carnegi  -  Mellon  Institute 
Pittsburgh,  Penn. 

Attn:  Dr.  Tom  Cruse 


17. 


1 


Inclosure  (B) 
1494-FW#060-117 


Addressee 

18.  National  Aeronautics  §  Space  Administration 

George  C.  Marshall  Space  Flight  Center 
Huntsville,  Alabama  35812 

Attn:  Erich  E.  Engler 
S§E  -  ASTN-ES 

19.  NASA 

Langley  Research  Center 
Mail  Stop  188 
Hampton,  Virginia  23365 
Attn:  Mr.  R.  Heldenfels 

20.  SNSO  -  Cleveland 
Lewis  Research  Center 
Materials  and  Structures  Branch 
21000  Brookpark  Road 
Cleveland,  Ohio  44135 

Attn:  James  J.  Lombardo 

21.  NASA  -  Lewis 

21000  Brookpark  Road 
Cleveland,  Ohio  14135 
Attn :  C.  Chamis 

Dept.  MS -49 

22.  Department  of  tlie  Army 

Army  Materials  and  Mechanics 
Research  Center 

Watertown,  Massachusetts  02172 
Attn:  Dr.  E.  M.  Lenoe 

23.  Department  of  the  Navy 
Code  52032D 

Washington,  D.  C.  20360 
Attn:  M.  Stander 

24.  U.S.  Naval  Air  Development  Center 

Air  Vehicle  Technology  Dept. 

Attn:  Dr.  E.  J.  McQuillan 

Code  3033 

Warminster,  Pa.  18974 

25.  Aerospace  Corporation 
P .  0.  Box  95085 

Los  Angeles,  California  90045 
Attn:  D.  E.  Geiler 

Bldg.  A2,  Rm.  2223 


Inclosure  (B) 
1494-FW#060-117 


Addressee 

Bell  Aerospace  Corp . 

Structural  Systems  Department 
Buffalo,  New  York  14200 
Attn:  Mr.  F.  Anthony 

Bell  Helicopter  Co. 

P.  0.  Box  482- 
Fort  Worth,  Texas  76101 
Attn:  M.  E.  Glass 

The  Boeing  Company 

Missile  and  Information  Systems  Division 
P.  0.  Box  3999 
Seattle,  Washington  98124 
Attn:  Mr.  J.  Hoggatt 

29.  The  Boeing  Company 
Airplane  Division 
Seattle,  Washington  98124 
Attn:  Dr.  R.  June 

30.  Vertol  Division 
Boeing  Center 
Box  16858 

Philadelphia,  Pennsylvania  19142 
Attn:  Warren  Stratton 

31.  Fairchild-Hiller  Corp. 

Republic  Aviation  Division 
Farmingdale,  L.I.,  New  York  11735 
Attn:  Dr.  R.  Levy 

32.  Gates  Learjet  Corp. 

P.  0.  Box  1280 
Wichita,  Kansas  67201 
Attn:  Mr.  Allyn  M.  Heinrich 

33.  General  Dynamics 
Convair  Aerospace  Division 
P.  0.  Box  1128 

San  Diego,  California  92112 
Attn:  Mr.  J.  D.  Forest 


26. 


27. 


28. 


No.  of  Copies 
1 


1 


Inclosure  (B) 
1494-FW#060-117 


Addressee 

34.  General  Electric  Company 
P.  0.  Box  8555 
Philadelphia,  Penn.  19101 
Attn:  K.  J.  Hall 

Materials  Performance  Lab 

35.  Grumman  Aircraft  Corp. 

Plant  #35,  Advanced  Composites 
Bethpage,  L.  I.,  New  York  11714 
Attn:  Mr.  R.  N.  Hadcock 

36.  Hercules  Powder  Company 

P .0 .  Box  210 

Cumberland,  Maryland  21052 
Attn:  Mr.  D.  Hug 

37.  Hercules,  Inc. 

Baccbi’^  Works 
P.O.  Box  98 
Magna,  Utah  84044 

Attn:  Mr.  H.  R.  MacPherson 

38.  HITCO  Materials  Science  Center 

1600  W.  135th  Street 
Gardena,  California  90249 
Attn:  M.  S.  Allison 

39.  ITT  Research  Institute 

10  West  35th  Street 
Chicago,  Illinois  60616 
Attn:  Dr.  R.  Cornish 


Inclosure  (11) 
1494-FW#060-117 


Addressee 

40.  Ling-Temco-Vought 
P.  0.  Box  5003 
Dallas,  Texas  75222 
Attn:  Mr.  M.  S.  McClaren 

41.  Lockheed  Georgia  Company 

Advanced  Materials  and  Structural  Division 
Dept.  72-26,  Zone  459 
Marietta,  Georgia  30060 
Attn:  Mr.  W.  A.  Pittman 

42.  Lockheed  Georgia  Company 

Advanced  Composites  Info,  CTR 
Marietta,  Georgia  30060 
Attn:  Mr.  W.  G.  Jure vie 

Dept.  72-14 
Zone  402 

43.  Lockheed  -  Georgia  Company 

Marietta,  Georgia 

Attn:  J.  E.  Gilmer 

Dept.  42-11 
Mail  Zone  102 

44.  Lockheed  California 

P.O.  Box  551 

Burbank,  California  91503 

Attn:  George  Wald 

Dept.  74-50  Bldg.  243 
Plant  2 

45.  Lockheed  Missile  and  Space  Company 

Sunnyvale,  California  94088 
Attn:  William  Powell 

Department  81-12 
Bldg.  154 

46.  The  Marquardt  Corporation 
16555  Saticoy  Street 

Van  Nuys,  California  91406 
Attn:  Mr.  B.  A.  Webb 

47.  Art  Feldman 
Mail  Zone  1630 
P.O.  Box  179 
Martin  Denver 

Denver,  Colorado  80201 


No.  of  Copies 
1 

1 

1 


1 

1 


1 

1 

1 


Inclosure  (B) 
1494-FW#060-117 


Addressee 

48.  Material  Sciences  Corporation 
Blue  Bell  Office  Campus 

1777  Walton  Road 

Blue  Bell,  Peiinsylvania  19422 

Attn:  Carl  Zweben 

49.  McDonnell  Aircraft  Co. 

P .  0 .  Box  516 

St.  Louis,  Missouri  63166 
Attn:  McDonnell  Library 

Dept.  218,  Reference  70L1292 

50.  McDonnell  Aircraft  Corp. 

Lambert-St.  Louis  Municipal  Airport 
P .  0 .  Box  516 

St.  Louis,  Missouri  63166 
Attn:  Mr.  R.  C.. Goran 

51.  Minnesota  Mining  and  Manufacturing  Co. 

1210  University  Ave. 

St.  Paul,  Minnesota  55104 
Attn:  Mr.  C.  Jacobs 

52.  Rockwell  International 
Los  Angeles  Division 
International  Airport 

Los  Angeles,  California  90009 
Attn:  Dr.  L.  M.  Lackman 

53.  Northrop  Corporation 

Norair  Division 
3901  W.  Broadway 
Hawthorne,  California  90250 
Attn:  Mr,  R.  Hays 

54.  Northrop  Corporation 
Ventura  Division 

1515  Rancho  Cone jo  Blvd. 

Newbury  Park,  California  91320 
Attn:  Dr.  R.  D.  Johnson 

55.  Southwest  Research  Institute 
8500  Culerbra  Road 

San  Antonio,  Texas  78206 
Attn:  Mr.  G.  C.  Grimes 


No .  of  Copies 
1 


1 


1 


1 


1 


Inclosure  (B) 
1494-FW#060-117 


Addressee 

56.  Union  Carbide  Corporation 
Oakridge  National  Laboratory 
Isotopes  Sales  Department 

P .  0 .  Box  X 

Oakridge,  Tennessee  37830 
Attn:  Mr.  J,  L.  Cook 

57.  Union  Carbide  Corporation 
Carbon  Products  Division 
P.  0.  Box  6116 
Cleveland,  Ohio  44101 
Attn:  J.  Bowman 

58.  U.  S.  Polymeric,  Inc. 

700  E .  Dyer  Road 

Santa  Ana,  California  92705 
Attn:  J.  B.  Williamson 

59.  United  Aircraft  Corporation 
Hamilton  Standard 
Composite  Material  Division 
Windsor  Locks,  Conn.  06096 
Attn:  Mr.  Borie 

60.  United  Aircraft  Research  Labs. 

East  Hartford,  Connecticut  06108 
Attn:  Bruce  Thompson 

61.  Whittaker  Corporation 

Narmco  Materials  Division 
600  Victoria  Street 

Costa  Mesa,  California  92626 
Attn:  H.  King 

62.  Whittaker  Corporation 

Narmco  R8D  Division 
3540  Aero  Ct. 

San  Diego,  California  92123 
Attn:  Dr.  A.  Miller 

63.  Skyline  Industries 
P .  0.  Box  821 

■  4901  NE  Parkway 
Fort  Worth,  Texas  76101 
Attn:  T,  P.  Airhart 

Director  Technical  Products 


V 


Inclosure  (B) 
1494 -rW# 060 -117 


Addressee 

64.  McDonnell  Douglas  Aircraft 
3855  Lakewood  Blvd. 

Long  Beach,  California  90801 
Attn:  W.  D.  Nelson 

Mail  Stop  Cl-250  (35-41) 

65.  San  Diego  Aircraft  Engineering 
1730  Kettner  Blvd. 

San  Diego,  California  92101 
Attn:  John  Lyman 

66.  Plastics  Technology  Evaluation  Center 

Picatinny  Arsenal 

Dover,  New  Jersey  07801 
Attn:  SMUPA-VP3 

Harry  E ,  Pebley 

67.  Ryan  Aeronautical  Company 
Lindberg  Field 

Sah  Dicgo,  California  92112 
Attn:  Mr.  Roger  Long 

68.  Marshall  Space  Flight  Center 

S8E  ASTN-MN  B1.4612 
Huntsville,  Alabama  35812 
Attn:  J.  E.  Curry 

Lockheed  Missiles  and  Space  Co. 

Dept.  81-12,  Bldg.  154 
P.O.  Box  504 

Sunnyvale,  California  94088 
Attn:  Derek  Yates 


No.  of  Copies 
1 

1 

1 

1 

1 

1 


69. 


FZM-5567 
15  May  1973 


ANISOTROPIC  CURVED  PANEL  ANALYSIS 
Prepared  by 
Dr,  D.  J.  Wilkins 


Prepared  for 

Advanced  Composites  Division 
Air  Force  Materials  Laboratory 
Air  Force  Systems  Command 
Wright-Patterson  Air  Force  Base,  Ohio 


GENERAL  DYNAMICS 
Convair  Aerospace  Division 
Fort  Worth  Operation 


ABSTRACT 


An  analysis  of  laminated-composite  cylindrically  curved 
shells  has  been  formulated  and  incorporated  into  digital  com¬ 
puter  procedure  SS8.  Many  discrete  effects  were  considered, 
including  ring  and  stringer  stiffening,  by  implementing  a 
Rayleigh-Ritz  energy  analysis.  The  procedure  solves  static 
deflection,  buckling,  and  natural  frequency  problems. 

The  results  of  an  extensive  experimental  program  for 
graphite-epoxy  and  boron-epoxy  shells  are  included. 
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SECTION  I 


INTRODUCTION 


Modern  aircraft  are  constructed  with  many  curved  panels. 
In  the  past,  the  use  of  isotropic  materials  permitted  a  rela¬ 
tively  small  number  of  tests  to  be  used  in  the  generation  of 
simplified  analytical  methods  and  design  curves .  The  advent 
of  high-performance  laminated  composites  has  required  the  de¬ 
velopment  of  improved  analysis  tools  since  material  properties 
of  composites  have  defied  simplification  and  their  various 
coupling  effects  are  often  unconservative. 

Ashton  [l]  has  shown  that  the  Rayleigh-Ritz  method,  when 
properly  formulated  and  coupled  with  an  efficient  method  of 
calculating  the  necessary  integrals,  can  be  a  very  versatile 
and  efficient  tool  for  structural  analysis. 

Consequently,  an  analysis  tool  for  cylindrically  curved 
anisotropic  panels  was  proposed.  The  resulting  program  in¬ 
cludes  the  following  capabilities: 

A.  Types  of  Analysis 

1.  Static  deflection  and  strength  under  complicated 
variations  of  edge  and  lateral  loads  with  compli¬ 
cated  support  conditions 

2.  Elastic  stability  under  complicated  edge  loads 

3.  Natural  frequencies  and  mode  shapes. 

B.  Geometry 

1.  Flat  panel 

2.  Cylindrically  curved  panel 

3.  Full  cylinder  (specially  orthotropic  only). 

C.  Construction 

1.  Sheet  with  discrete  rings  and  stringers 

2.  Sandwich  with  discrete  rings  and  stringers 
(neglecting  core  shear) . 
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D.  Material  -  Linearly  Elastic 

1.  Panel  -  layered  anisotropic 

2.  Stiffeners  -  orthotropic. 

E.  Boundary  Conditions 

1.  All  combinations  of  clamped  and  simply  supported; 
some  combinations  with  free  edges 

2.  Elastic  moment  restraint  on  opposite  edges. 

The  analytical  approach  and  the  documentation  of  most  of 
the  required  derivations  is  given  in  Section  II.  Other  detailed 
derivations  and  assumptions  are  explained  under  the  appropriate 
subroutine  titles  in  the  computer  program  documentation. 
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SECTION  II 


ANALYTICAL  FORMULATION 


2.1  METHOD  OF  ANALYSIS 

The  Rayleigh-Ritz  energy  method  has  been  chosen  for  the 
analysis  because  of  its  versatility  and  speed  when  compared  to 
finite-element  or  finite-difference  techniques.  Many  effects 
may  be  considered  by  simply  adding  their  contributions  to  the 
total  energy  of  the  system,  without  increasing  the  size  of  the 
resulting  set  of  equations. 

The  basic  energy  principle  involved  is  the  theorem  of 
stationary  potential  energy.  In  the  present  case  it  may  be 
written  as 

V+U+Q  -  T  =  constant  (1) 

where 

V  =  strain  energy 

U  =  potential  energy  of  membrane  loads 

Q  =  potential  energy  of  lateral  loads 

T  =  kinetic  energy 

For  a  static  deflection  problem.  Equation  (1)  takes  the 

form 

V  +  U  +  Q  =  constant  (2) 

For  an  elastic  stability  problem.  Equation  (1)  becomes 

V  +  XU  =  constant  (3) 

where  X  is  the  buckling  eigenvalue. 

For  a  free-vibration  problem,  including  membrane  loads. 
Equation  (1)  is  reduced  to 

V  +  U  -  T  =  constant  (4) 
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These  energies  are  formulated  in  the  following  sections. 

The  Rayleigh-Ritz  method  is  then  applied  to  form  a  set  of  simul¬ 
taneous  equations  for  the  static  deflection  problem,  or  a 
standard  eigenvalue  problem  for  the  buckling  and  vibration 
cases.  This  resulting  problem  is  solved  with  a  digital  com¬ 
puter  program,  as  described  in  Appendix  I. 

All  of  the  following  assumptions  will  be  implicit  in  the 
analysis ; 


1.  The  shell  is  thin  and  has  constant  thickness 

2.  The  displacements  are  small  when  compared  to 
the  thickness 

3.  Transverse  shear  effects  are  negligible. 


2.2  RAYLEIGH-RITZ  METHOD 

As  noted  above,  each  of  the  problems  of  concern  is 
governed  by  Equation  (1),  where  the  variations  can  be  replaced 
with  the  problem  of  finding  the  minimum  of  Equation  (1)  by 
assuming  the  displacements  in  the  form  of  a  finite  series; 

^  -  X  2.  Xrfy) 

V  —  2-  co'tr 

M4.  (5) 

w  =2.  2. 

where 

•  *1 
"1=4  )  *V4  =  i-j+Oj-l 

the  ^imn  undetermined  constants,  and  the  functions  Y^j^ 

are  chosen  to  satisfy  the  geometric  boundary  conditions  on 
u,  V,  and  w.  Introducing  the  assumed  series  into  Equation 
(1)  reduces  the  problem  to  finding  the  minimum  of  Equation  (1) 
with  respect  to  the  undetermined  constants,  Thus, 

Equation  (1)  is  now  a  function  of  only  the  undetermined  constants, 
®imn>  equivalent  to  the  following  conditions: 
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o 


(6) 


t 


tmn 


Cv+U+q-T)  = 


wtiG3r0  1  —  2^  3^  rn.  •  •  •  •  >  ^  •  •  •  •  >  5  such  thn t 

Equation  (6)  denotes  a  set  of  3  n^^ny  simultaneous  algebraic 
equations,  for  which  solution  techniques  are  readily  available. 

The  assumed  series  (5)  always  involve  additional  constraints 
on  the  energy  criteria  beyond  the  physical  constraints  on  the 
problem,  so  that  the  solution  obtained  by  the  Rayleigh-Ritz 
method  is  always  in  the  direction  of  a  stiffer  structure. 

However,  if  the  assumed  series  is  complete  and  satisfies  the 
geometric  boundary  conditions,  then  the  consecutive  solutions 
obtained  by  including  additional  terms  in  the  assumed  series 
must  approach  the  correct  solution. 


2.3  SHELL  THEORY 

Before  proceeding  with  the  analysis,  a  set  of  equations 
defining  the  midsurface  strains  and  curvatures  in  terms  of  the 
deflections  u,  v,  and  w  are  required.  These  strain-displacement 
relations  constitute  the  shell  theory  being  used.  Several 
theories  are  commonly  used,  namely  Love’s,  Donnell's,  Novozhilov' s , 
etc.  In  this  work,  Vlasov  [2]  shell  theory  will  be  used.  In 
the  present  notation,  it  requires  that 

(7) 
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where  the  commas  denote  partial  differentiation  with  respect 
to  the  variables  following  them;  the  coordinate  system  and 
sign  conventions  are  shown  in  Figures  1  and  2. 

With  the  definitions  of  Equation  (7),  the  total  strain  at 
any  point  at  a  distance  z  from  the  middle  surface  is  written  as 


2.4  SHELL  STRAIN  ENERGY 

The  derivation  of  the  shell  strain  energy  is  necessary  for 
all  three  of  the  analyses  to  be  performed.  The  derivation 
depends  on  the  coordinate  system  and  sign  conventions  shown  in 
Figures  1  and  2. 

For  a  laminated  anisotropic  material,  the  constitutive 
relations  [3]  are 


Nx 

- 

Kx 

Alt  Axx 

Alto  A»to  A44  B|to  &sto 

B\z  Bxt.  Btto^iz 
Bito 


k!* 

(9) 


which  includes  bending-stretching  coupling,  as  well  as  coupling 
between  normal  stress,  shearing  and  twisting  deformations. 

The  strain  energy  of  the  shell  may  be  concisely  stated  as 
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(10) 


which,  after  substituting  from  Equation  (9),  Cakes  the  fora 

Vs  =  fJJ  WWH  ^  (ii) 

Using  Equations (7)  and  (9)  and  performing  the  indicated 
matrix  operations  in  Equation  (11)  results  in  the  following. 

\4=  i-XJ  q 

/«  * 

+2.A,»Q<.,^u,j+u,.v„l  ♦  Alt  Cv,,+«Cw3* 

+2A24t.^v,^  + +R  V,^w] 

-Ze>22  R  W  4  R^^^] 

Sy ” K>y'^Yy*”'^x'**^Vy  2R'a^'%xy 

“Ru^YVfy  “  2R  ‘^>y'^3  ^  ^  '^h 

+  Dix  L'^>kx1  +  2  (w^Wj,.^4' R  ww,jt^^ 

+  2.D|^  •A»y'A/,  J 
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4  D22  ^  ***  ^  ^*6C^'^jxy'^-»vv 

+r\y  '^*Vy  "  ^'6>i'^i'#v4  2.Rv^  +(Cu.,^  W  -  R  Sjj  y>/J 

+  +  4-  J  cl  (AntA) 


Substitution  of  Equation  (5)  into  Equation  (12),  non- 
dimensionalization  of  the  shape  functions,  taking  partial  deriva¬ 
tives  with  respect  to  the  undetermined  constants,  and  defining 
the  integral  functions  tf/  gives 


^kA  cj*n»\ 


[K-  1.2,^ 

i  ®  *'fcj  •“>  ’Vf 


where 

At\4.Vj\^^2,icnn  ^^♦RJ0fc4•^4•»’ 


(13) 


(14) 


^\2Lj«nn  “ 

+B|^R  4ft.b  (^24+^2^ R  J 
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+  aR'CA»e-2  r’8,,+  utV\ 

"* Bui  ~  ^  t^X4»C.Vl'^)5tM^3  (16) 

(Ug^“  ®l6)[.'^f53iiMU  ' 

■V"2b  CQsfi^”Bge^[^'ix4'3Mic 

+rb4- 

^^42l2m'^^42na^''"'^44«A'a.i,  i  ^O  *  (17) 

CA^c"^  2R  6^5^  +  L  '^X  t2izm. 


^2^i'^xnfK~  (AtZ'~  R  ^Z'^\.^%izL‘htK^H 
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■"i  -  i  b  (Bvg-'-R  0\^ 

-^-bR*(^426-R  Ojs^  • 

l-%4-»L3n^j  O-Jo 

■~2.l!5  G2^^*^4.31l^zi.*^^22^3'»^“  ^B2ft+R 
t  *(x42c3lA 


(18) 
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+  i'bR'(0^R-6«)[li«;^'<i 
+a.b''R ‘(P,.R 

■*‘^43»i»c  j  1 

-hi  b  D„  C 

is^aivl 

+(X.B  0^2.  L%53c»»^^j5»n%^  +  ^xS3n%c 
^2a.  0|*  t^3L»wv  '^J431^3j  -v 

+  0-b  D22.Q^v3i.3»^^]J33^3'n3 

■^2.6  D2G  C'^)<43l3»i'^63‘K3^''"'(i4^^i^a»^3xl 

*h  4al'  E  L'^x2.3L3m 


(19) 


The  integral  functions  if/  are  defined  and  explained  in 
Section  2.10.  Note  also  that 


(20) 

^3lLji*vfv”  i\‘3»v\wcj 

(21) 

(22) 

so  that  the  potential  energy  matrix  is  symmetric. 
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2.5  SHELL  KINETIC  ENERGY 

The  kinetic  energy  of  the  vibrating  shell  is  based  on  the 
translational  inertia  in  the  three  coordinate  directions.  The 
rotatory  inertia  components  are  neglected  to  maintain  consistency 
with  the  previous  deletion  of  transverse  shear  flexibilities. 

The  mass  times  velocity-squared  is  written  on  a  differential 
basis  as 


(23) 

*  o 


The  integral  through  the  thickness  is  trivial,  giving 


Performing  the  same  substitution  of  the  assumed  modes,  taking 
partials  with  respect  to  the  undetermined  constants,  and  using 
the  integral  definitions  as  for  the  potential  energy  derivations, 
results  in  the  following  required  expressions  for  the  variations 
of  the  kinetic  energy: 


^Ko-bco*  ^  ^  (25) 


Co  (26) 


^Vo-IdCO^^  (27) 
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2.6  POTENTIAL  ENERGY  OF  INPLANE  LOADS 


The  total  potential  energy  of  the  inplane  loads  on  a  panel 
may  be  simply  formed  as  the  product  of  the  vector  of  running 
loads  and  the  vector  of  mid-plane  strains: 

Up  •=  -JT  •[£*]  dA  (28 

A 

Expanding  the  strains  according  to  Equation  (7)  and  including 
first-order  nonlinear  terms  results  in 


+  [y.,+  j  dA 


(29) 


To  allow  integration  of  Equation  (29)  requires  an  assumed  form 
for  Nx,  Ny,  and  Nxy.  The  form  assumed  here  is  a  power  series  in 
the  X  and  y  directions,  defined  as 


N.  -  i  z  P,,,  (rcif-' 

Ny  =  i  Z  Py.. 

N.,=  z  t  ©'“'Gtr  (32) 

Jtal 


Before  integrating  Equation  (29),  Up  is  separated  into  its  linear 
and  nonlinear  terms. 


Up  =  S  +  U 


(33) 


where  the  linear  terms  are  retained  in  S  and  the  nonlinear  terms 
are  retained  in  U.  Then, 
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(34) 


S  =  -JJ^ Z  ^{P»kAKx]+ftk4Lv,>,+  W/R] 

^ykaC''.**  j  ^  (-b)  a 


Using  the  definitions  of  u,  v,  and  w  from  Equation  (5), 

+  Ri'<kA[]^  ^  Z  X2«|,^  Yl/Kfl-2m-K+  ^  ^  ^  * 

.-.Ji  ©“ffl*"  d.A 

Taking  partials  with  respect  to  the  coefficients  and  using  the 
integral  definitions  of  Section  2.10  gives 

~  ^  ^^xkiiL^^k.x«h: 


(36) 


=-Z  I  {P, V.il 


k  ^ 


^  =  -z  z  {p.,^tai.R-'C^4„  J] 


k  A 


14 


Similarly  for  U, 


M  Jl 

Substituting  in  the  definitions  of  Equation  (5),  taking  partial 
derivatives  and  using  the  integral  definitions  of  Section  2.10 
gives 

~&.y-  =  ^  =  o 

+  0. 6 

* 


2.7  POTENTIAL  ENERGY  OF  LATERAL  LOADS 

A  distributed  lateral  pressure  is  defined  by  pov®r  series 
in  the  x  and  y  directions  as 


lO  lo 


k»i  A»i 


(39) 


The  potential  energy  of  this  load  is 

^  ~  iT  f 

A 


(40) 
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Combination  of  the  definitions  for  q  and  w,  differentiation  with 
respect  to  the  coefficients,  and  use  of  the  integral  definitions 
results  in 


2.8  DISCRETE  ENERGY  CONTRIBUTIONS 

As  noted  above,  a  significant  reason  for  employing  the 
Rayleigh-Ritz  energy  method  is  the  ease  with  which  many  desired 
effects  may  be  included.  These  effects  and  their  required  energy 
formulations  are  described  below. 


2.8.1  Stiffeners 

An  important  effect  to  be  included  for  aircraft  curved  panels 
is  that  of  discrete,  eccentric  stiffening  elements.  These  are 
called  stringers  in  the  x-direction  and  rings  in  the  y-direction. 


2. 8. 1.1  Stringers 

The  energy  contributions  for  the  discrete,  eccentric  stringers 
were  adapted  from  Reference  [4].  The  appropriate  geometry  for  the 
stiffened  shell  and  the  stiffeners  themselves  is  shown  in  Figures 
3  and  4.  The  potential  energy  of  the  stringers  due  to  extension, 
bending,  and  torsion,  neglecting  the  bending-torsion  coupling,  is 
expressed 


VH  ■*  >1* 
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SMI)3]02 


The  form  of  the  partials  after  introduction  of  the  assumed 
modes,  nondimensionalization,  and  integration  is 


Ytj  Y*.c 


jt*l 

a.b*^G4)»A[+«»c»^ 

Y»i„  Y»»,<(  o-in.*.!  J^ 


The  stringer  kinetic  energy  is  expressed  by 


(43) 


(44) 


(45) 


AT=  (46) 

"2 
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(46) 
Cont ' d. 


In  final  form,  the  partlals  of  the  stringer  kinetic  energy 
are  expressed  as 


^AT 


4»i  ^ 


I 


Vl» 


(48) 


=  Z  Z I  C-^4«t,^.Y.iYj- 

0^b'As4^i»cai*»  Y»jj  J  +  ^  * 

Y^k  +  0^6'^ ^3^^^  ■'•  ^  ^ 
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The  remaining  stringer  energy  contribution  arises  from  an 
external  axial  tension  load,  P^,  on  the  stringer.  This  energy 
is  written 


Ao = -fPx  K  H..+ 

^  4»a 


(50) 


Putting  the  linear  terms  in  the  S  vector  and  the  nonlinear 
terms  in  the  U  matrix,  as  defined  in  Section  2.6,  gives 


-  Z  fxiL  Xi  ^ 


(51) 


0AS 


L 

-+z 


(52) 


-aAS 

'S'^sio 


Jl«» 


(53) 


"aAO  _  ^ 
■SaHTi  “  ~  O 


(54) 


'aAU 


X£Sc3»». 


(55) 
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2 .8 . 1 .2  Rings 

The  energy  terms  for  the  discrete,  eccentric  rings  are 
similar  to  those  for  the  stringers,  but  are  much  more  complicated, 
Reference  [4]  was  also  used  for  these  energies;  again,  refer  to 
Figures  3  and  4. 

The  potential  energy  is  expressed  as 

+  R^ArkV.*  +  -2  ' 

wii.  ^  ^  XrnArit,  (56) 

2.R  Xj^Arit^  * 


The  final  forms  of  the  partials  required  are 

= zzz  t,  [b*i„4, 

(57) 

"  X*K  Ant^  R  * 

^3mn  ^xsXi. 


K 


b  Xznk^««jt«(.CIcm^  '^C'b  +  R 


(58) 
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^5lil»j)^««>%K  C"^  *y4c^»*k 

**■  ^Wrk  A^c,x  ^  ^  *rK* 

Avk  X»«i  'Ijsaj#**.”  ^  ^  ^  X»i^  %5M^ 

^a t  I?  Xso  ' 


(59) 


Ark  ^  t-bjax^  ^acnns.  J  +  ^  t  (fe  ^Xit 

Cx^  y  I 

-^X.Xn 

The  kinetic  energy  of  the  rings  is  expressed  as 

AT”  -"k^  CAvkO^^t”  2  ■'■Hi 

+*2Xy4,,>»ij^vi,^^  +  -2lrK'*>t:^|t:''^^rk.Sa:^j^'jJ  (60) 

^"Xa^vw.  C^lt^x,  S' 


The  final  forms  of  the  ring  kinetic  energy  partial  deriva¬ 


tives  are 
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^3H,x  ^  ^^K»trV.  ^  a<L3M.<x.  J  ^ 


^X»X, 

+d!  bx^AvK^X^u  X»«»j,i + Xii^Xs^l +^*0X3^^^  • 
Xjw^x  0:*„K+i.,^l)+b'i,^wX  K  ^^•K^%tjp\’j  * 


(62) 


(63) 


For  a  panel  rather  than  a  complete  cylinder,  a  ring  stiffener 
may  support  a  circumferential  load,  P  ,  imposed  at  its  ends. 

The  energy  associated  with  P  ,  which  is  positive  in  tension,  is 
given  by  ^ 


Au  “  ^  bP^  j~  ^(Cvi  +  Ow,*^ 


(64) 


After  separating  into  linear  and  nonlinear  terms,  as  for  the 
stringers,  the  final  partial  derivatives  are  given  as 
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k*i 


(65) 


(66) 


^-t  4,..j 

¥  loft  ^XiCjK^^  ^ 


(67) 


'3A0  _  'sAo  _  n 
'SaX^i  -  ^VSXli  ~  ^ 


(68) 


gAO 


1^.,  M  K  ^  • 


(69) 


2.8.2  Lumpeid  Masses 

The  kinetic  energy  contribution  of  each  lumped  mass  attached 
to  the  shell  is  written  in  terms  of  its  translational  inertia 
only  as 


AT  =  i  n\  ^ujj  * v.\  +><.%) 


(70) 


In  final  partial  form,  after  using  the  assumed  mode  defini¬ 
tions  of  u,  V,  and  w, 


^a.Tv  "  ^ 


(di,  (71) 
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"Oa-mli 


=  Rw‘XxiY.iZ:Zx.«Y. 

■J 


^Zm 


^fr.  =  RcJXvJ^jZ  I X,.  Y.« 


(72) 


(73) 


2.8.3  Spring  Supports 

To  model  nonstandard  boundary  or  internal  attachment  con¬ 
ditions,  it  is  convenient  to  have  the  capability  to  introduce 
discrete  point  and  line  spring  supports. 


2. 8. 3.1  At  a  Point 

Assuming  that  the  spring  acts  normal  to  the  shell  surface, 
its  energy  can  be  defined  in  terms  of  w  only  as 


AV  =  iKfW*(^^. 

The  partial  derivatives  are  then  trivially  formed  as 


(74) 


^ 


(75) 


-  KpX-icYkj  2  Z  X»iK'f3HA^»in 


(76) 


2. 8. 3. 2  Along  a  Line 


To  simplify,  it  is  assumed  that  the  line  spring  supports 
lie  parallel  to  either  the  x-  or  y-axis  of  the  shell.  Then, 


- 


i. 


(77) 
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After  integration  and  partial  differentiation. 


=  O 


(78) 


LZ  Z  k^bXsc X, A, 1 


(79) 


2.8.4  Concentrated  Loads 


The  potential  energy  of  a  point  load  applied  normal  to  the 
shell  surface  is  written  simply  as 


AQ  = 


(80) 


The  final  partial  form  is  just  as  simply  written  as 


=  o 


(81) 


'z>Aa  _ 


(82) 


2.8.5  Concentrated  Moments 

The  energy  associated  with  concentrated  moment  loading  is 
important  when  input  loading  from  attached  members  must  be  assessed. 
In  both  point  and  line  moment  cases,  the  vector  describing  the 
direction  of  the  moment  must  be  parallel  to  either  the  x  or  y-axis 
of  the  shell. 

2. 8. 5.1  At  a  Point 

The  energy  is  formed  as  the  product  of  the  applied  moment  and 
the  angle  through  which  it  is  applied 
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J  Kp  tM 
j  h\p  M*  X-OiH. 


(83) 


Substitution  of  the  displacement  definitions  and  partial 
differentiation  of  the  energy  gives 


r 


raAS.- 


Dift.. 


L  o 


X-YkiA. 


(84) 


Hi 


o 

-ne^XziYaj 


4^  pi. 


*  iM  y-OtH. 

)  Kp‘** 


gAQ  ^ 


Td!  Mp  Ysi  ^  -o.». 


'ao. 


^  hp  XscYiji'if  ISpt  >  i»aX-OiR. 


(85) 


(86) 


2. 8. 5. 2  Along  a  Line 


The  formation  of  the  energy  contribution  for  line  moments 
is  the  same  as  that  for  point  moments  except  that  a  line  integral 
is  required.  The  final  partials  are 


(87) 


\  ^ 
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(89) 
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2.9  BOUNDARY  CONDITIONS 


The  boundary  conditions  to  be  considered  are  the  classical 
conditions  of  clamped,  simply  supported,  or  free.  All  combina¬ 
tions  of  these  three  may  be  specified,  that  is,  any  edge  of  a 
panel  may  be  specified  as  clamped,  supported,  or  free.  In  addit¬ 
ion,  any  two  opposite  edges  may  have  elastic  moment  restraint.  A 
distinct  advantage  of  the  Rayleigh-Ritz  method  is  that  only  the 
geometric  boundary  conditions  (displacement  and  slope)  need  be 
satisfied  to  insure  convergence  of  the  solution  (although  con¬ 
vergence  is  improved  by  the  satisfaction  of  the  force  boundary 
conditions).  The  Rayleigh-Ritz  method  does  require  a  set  of 
assumed  modal  functions,  each  of  which  satisfies  the  geometric 
boundary  conditions.  The  functions  chosen  for  this  study  are 
a  series  of  simple  beam  vibration  modes.  These  functions  form  a 
complete  orthogonal  set,  and  are  all  of  the  same  general  form. 

The  use  of  these  functions  allows  the  normal  deflection,  w,  to 
satisfy  the  following  conditions: 

(1)  clamped  edge:  w  =  0;  w,  n  =  0 

(2)  simply  supported  edge:  w  =  0;  =  0 

(3)  free  edge:  -  0;  -  0 

(4)  elastically  restrained  edge:  w  =  0; 

where  n  denotes  a  normal  to  the  particular  edge. 


In  addition  to  these  conditions,  which  apply  to  flat  or 
curved  plates  and  the  ends  of  a  cylinder,  the  normal  deflection 
in  the  circumferential  direction  of  a  cylinder  is  taken  to  be 

Id 

An  assumption  has  been  made  concerning  the  form  of  u  and  v. 

In  the  X  direction,  it  is  assumed  that  the  mode  shape  function  for 
V  is  the  same  as  that  for  w  and  that  the  mode  shape  function  for 
u  is  the  derivative  of  that  for  w.  Mathematically, 
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(91) 


Since  the  roles  of  u  and  v  are  reversed  in  the  y  direction, 
it  is  also  assumed  that 


(92) 


These  assumptions  on  the  form  of  u  and  v  allow  them  to  always 
satisfy  their  required  gecmetric  boundary  conditions.  The 
specific  form  of  the  assumed  modes  and  the  evaluation  of  the 
necessary  integrals  is  discussed  further  in  Section  2.10. 


In  connection  with  the  free-edge  boundary  condition,  it 
must  be  noted  that  no  geometric  boundary  conditions  (deflection  or 
slope)  on  the  w  displacement  are  specified.  In  addition,  the 
force  boundary  conditions  for  the  free  edge  of  an  anisotropic 
curved  panel  are  so  complicated  as  to  be  impossible  to  satisfy 
with  modal  functions  as  simple  as  beam  modes.  Thus,  while  the 
use  of  the  beam  mode  functions  for  a  free  edge  is  intuitively 
acceptable,  some  difficulties  are  to  be  expected. 


Often  the  boundary  restraint  provided  by  real  structure  is 
between  the  classical  simple  support  and  clamped  conditions. 
Particularly  in  vibration  problems,  modeling  the  actual  edge 
restraint  can  be  important. 

The  inclusion  of  elastic  moment  restraint  follows  the 
approach  used  by  Ashton  in  References  [l]  ,  [5]  ,  and  [6]  .  Basic¬ 

ally,  a  beam  mode  function  having  the  appropriate  frequency  and 
mode  shape  for  the  input  elastic  restraint  parameters  is  calculated 
(Reference  [l] ) .  In  addition,  the  potential  energy  absorbed  by 
the  boundaries  must  be  combined  with  the  usual  strain  energy. 

If  the  edge  restraint  moment  (in  the  x-direction)  is  assumed 
to  be  of  the  form 


^ 

Then  the  potential  energy  contribution  is  of  the  form 


(93) 

(94) 
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(95) 


Generalization  of  this  form  at  both  x-edges  and  both  y- 
edges  gives  rise  to  the  following  approximate  potential  energy 
increment: 


7 


(96) 


where 

\  D»x 

^  / ^xx 


and  K^i,  Kjj2>  ^yl>  ^y2  rotational  spring  constants  (in-lb./ 

rad/in;  which  cnaracterize  the  support  stiffness.  The  final 
form  of  the  varied  potential  energy  is 


'r>CL.4j  '  ^axc^ 


=o 


(98) 


+  X^c,>c  ly .  ^  w  • 
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2.10  EVALUATION  OF  INTEGRALS 


As  shown  in  Reference  [l]  ,  the  beam  mode  shapes  can  be  written 
as  a  sum  of  four  terms  as  follows: 


where 


=  Z 

-  COSH  Ce*,!) 


(100) 


*  ^os 

”  SlNJH 
^4^  SlivJ 


(101) 


and  the  Cjjjj  are  constants  for  the  particular  mode  shape  m  and 
the  appropriate  boundary  condition.  The  Cm  is  the  corresponding 
natural  frequency  of  the  m^l^  mode.  The  Cjj^a  constants  are  tabu¬ 
lated  in  Reference  [l]  .  The  successive  derivatives  of  Z^Cz) 
are  also  of  this  form  with  changes  in  the  Cuij  due  to  the  repeating 
nature  of  the  derivatives  of  the  Pjm*  Th®  z-notation  used  here 
is  replaced  by  x  or  y  depending  on  the  plate  direction  being  inte¬ 
grated  . 

With  this  special  form  of  the  beam  mode  shapes  all  of  the 
various  integrals  may  be  obtained  in  a  closed  form.  The  detailed 
solution  method  is  documented  in  Reference  [1]. 

Since  the  u  and  v  displacement  functions  are  assumed  to  be 
of  the  same  form  as  w  or  its  derivatives,  all  of  the  functions 
used  can  be  integrated  by  the  same  solution  technique. 


The  definition  of  the  integral  terms  used  throughout  the 
analysis  to  denote  the  product  of  two  functions  is 


I  •  • 


(102) 


where  the  k  subscript  defines  the  number  of  derivatives  as  shown 
in  Table  I. 


31 


Table  I.  DEFINITIONS  OF  i  AND  p  VERSUS  k 


GIVEN 

k 

1 

2 

3 

4 

5 

6 


DEFINES 


1 

0 

1 

2 
1 
2 
2 


P 

0 

1 

2 

0 

0 

1 


For  example, 


'X4-<j3n 


(103) 


The  notation  used  to  denote  those  integrals  in  which  two 
w-functions  are  integrated  in  the  presence  of  a  power  term 
(Section  2.6)  is 


JL..  =  r' 

Jo 


u-i 


7  7 


(104) 


where  i  =  1  means  that  2  stands  for  x  and  i  =  2  means  that 
z  stands  for  y.  The  relationship  between  j  on  the  left  si 
and  Si  and  p  on  the  right  side  is  given  by  Table  II. 


Table  II.  DEFINITIONS  OF  I  AND  p  VERSUS  j 


GIVEN 

j 

1 

2 

3 


DEFINED 


0 

I 

I 


P 

0 

1 

0 


The 

presence 


notation  used  to  denote  a  single  mode  integrated  in  the 
of  a  power  is  given  by 
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(105) 


The  only  integral  evaluations  involving  deviations  from  the 
solution  format  are  the  rigid  body  modes  necessary  for  the 
simple-free  and  free-free  boundary  conditions. 


For  the  simple-free  case  in  the  x-direction 

X..  -  -/5- 

X, .  =  -Xi  X 

Xv  * 

or  in  the  y  direction, 

Y.  =  “fi  V 
Vx,  ‘is 


(106) 


(107) 


These  mode  functions  must  be  combined  with  the  standard 
form  mode  functions  in  a  special  integral  table. 


For  the  free-free  boundary  condition  in  the  x-direction, 

X„=o  X,i  =  -2i3 

Xx»-I  Xx2=1iCl-2x)  (108) 

Xs,=  l  Xjz.  =1[3  (v-2)c) 

or  in  the  y-direction, 

V..  =  l  V=^6-2v) 

Vzi  ~  O  Hz2,  •  “2T3~  (109) 

v»,=i  V='^6-2y) 

As  in  the  simple-free  case,  these  mode  functions  must  be 
combined  with  the  standard  form  mode  function  in  a  special 
integral  table. 
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SECTION  III 


ANALYTICAL  AND  EXPERIMENTAL 

CORRELATION 


The  results  of  many  problem  solutions  using  Procedure 
SS8  are  described  in  this  section.  During  the  development  and 
checkout  stages,  runs  were  made  to  simulate  rectangular  beams 
and  flat  plates.  These  runs  served  to  debug  minor  programming 
errors  and  build  confidence  in  the  solution  techniques  employed. 
Subsequent  runs  were  made  to  compare  with  existing  theoretical 
and  experimental  results  for  isotropic  shell  segments  and  cylin¬ 
ders.  To  test  the  laminated  anisotropic  capabilities  of  the 
program,  it  was  necessary  to  perform  an  experimental  test  program 
and  to  borrow  results  from  on-going  composites  programs.  These 
tests  brought  program  limitations  to  light,  some  of  which  were 
overcome  and  some  of  which  remain. 


3.1  STATIC  DEFLECTION 

The  static  deflection  of  an  anisotropic  plate  was  checked 
against  Procedure  RA5,  now  revised  to  be  Procedure  SOO.  Agree¬ 
ment  was  good  in  all  cases.  No  experimental  results  for  shells 
could  be  found,  so  an  experimental  program  was  undertaken. 

Two  types  of  tests  were  performed  to  assess  static  deflection 
capabilities.  In  performing  the  first  set,  done  under  the  Fuselage 
Program,  deflection  of  fully  clamped  curved  panels  under  a  uniform 
pressure  load  was  sought.  In  performing  the  second  set,  done 
under  the  Dynamic  Characteristics  Program,  Contract  F33615-70-C- 
1837,  the  determination  of  the  influence  coefficients  of  canti¬ 
lever  curved  panels  was  sought. 


3.1.1  Fuselage  Program  Tests 

All  of  the  advanced  composite  curved  plate  specimens  were 
laminated  graphite-epoxy  and  fabricated  according  to  drawing 
number  FW6915067.  All  specimens  had  the  same  geometric  configura¬ 
tion  with  respect  to  length,  width  and  curvature;  a  sketch  of  a 
typical  specimen  is  shown  in  Figure  5.  Average  thicknesses 
and  laminate  designs  of  the  panels  were  the  physical  variables 
for  this  program. 
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The  specimens  were  hand-laid  using  Morganite  11/4617  which 
has  lamina  properties  of 

f: 

Ej^  =  20  X  10  psi 
E2  =  2.1  K  10^  psi 
Gj^2  “  0.85  X  10^  psi 

^12 

After  their  layup  on  a  table,  multiple-specimens  were  draped 
into  a  concave  steel  tool,  bagged,  and  cured.  The  final  opera¬ 
tions  were  to  net- trim  the  straight  edges  on  a  specially  jigged 
table  saw  and  net  trim  the  curved  edges  with  an  end-mill. 

The  test  fixture  was  not  only  used  for  the  lateral  pressure 
tests  but  was  also  used  for  compression  buckling  and  vibration 
tests.  It  provided  clamped -clamped  boundary  conditions  for  the 
curved  edges  and  either  clamped-c lamped  or  simple-simple  con¬ 
ditions  for  the  straight  edges.  Clamping  bars  provided  for 
variations  in  thickness  of  the  panels.  The  test  fixture  is  shown 
in  Figures  6  through  9 . 

The  set-up  for  the  lateral  load,  or  pressure,  test  utilized 
a  rubber  pressure  bag  mounted  against  the  concave  side  of  the  panel. 
The  back  side  of  the  bag  was  reacted  with  a  stiffened  pressure 
plate  having  the  same  contour  as  the  panel  and  bolted  to  the  fixture's 
side  support  (see  Figures  10  through  13).  The  size  of  the  bag, 
when  deflated,  was  sufficient  to  cover  the  unsupported  area  of  the 
panel  without  creasing  or  stretching,  and  thus  provided  an  even 
load  distribution  over  the  face  of  the  panel  as  air  pressure  was 
increased.  During  the  pressure  application,  the  load  machine 
maintained  a  lOO-poiind  edge  load.  After  preliminary  runs  using 
a  dial  gage,  an  LVDT  instrument  measured  the  out-of -plane  deflec¬ 
tions  as  the  pressure  was  increased.  Measurements  were  recorded 
at  increasing  pressure  increments.  For  these  tests,  the  panel 
edges  were  fully  clamped. 

The  test  results  and  analytical  predictions  are  shown  in 
Table  III  in  terms  of  center-deflection-per-psi  of  pressure.  The 
load  deflection  plots  are  detailed  in  Reference  [?]  .  Some  analy¬ 
tical  results  with  simply  supported  straight  edges  are  included  in 
Table  III  to  indicate  the  sensitivity  to  boundary  conditions. 
Correlation  with  elastically  restrained  edges  was  not  attempted. 

It  is  obvious  by  the  poor  correlation  that  the  fully  clamped 
boundary  condition  was  not  properly  modeled  in  the  tests. 
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Figure  8  Front  View  of  Test  Fixture  Figure  9  Front  View  of  Test  Fixture  with 

Top  Support  Installed 


Table  III  PRESSURE  TEST  RESULTS 
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3.1.2  Dynamic  Characteristics  Program  Tests 

Three  curved  cantilever  panel  specimens  were  designed  to 
study  the  effect  of  curvature,  in  the  presence  of  material  aniso¬ 
tropy,  on  the  response  of  composite  structures.  The  specimens 
are  designated  15,  16A,  and  16B  and  are  shown  in  Figures  14 
through  16.  All  of  the  curved  specimens  have  15 -inch  spans  and 
24-ply,  [O/+454/9O]  laminates.  Specimen  15  has  a  15-inch 
chord  and  a  36-inch  radius,  while  Specimens  16A  and  16B  have 
6-inch  chords  and  36-  and  12-inch  radii,  respectively.  A 
detailed  explanation  of  these  tests  is  given  in  Reference  [l3j. 

Some  difficulty  was  experienced  in  conducting  influence 
coefficient  testing  for  the  curved  panels.  A  special  fixture  was 
developed  with  which  the  point  loads  normal  to  the  undeflected 
middle  surface  of  the  specimen,  i.e.,  in  the  radial  direction, 
could  be  applied.  Since  vertical,  free-floating  Linear  Variable 
Differential  Transformers  (LVDT's)  were  used  for  deflection 
measurements,  the  deflections  were  not  measured  radially.  The 
LVDT's  were  inclined  to  the  vertical  as  much  as  possible  without 
compromising  the  accuracy  of  the  instruments,  but  they  could  not 
be  used  in  the  radial  direction.  The  maximum  error  in  deflec¬ 
tion  caused  by  this  setup  was  approximately  two  percent  along 
each  edge  of  the  specimen. 

Geometric  nonlinearities  caused  by  large  chordwise  cambering 
deflections  were  observed  in  these  specimens,  particularly  in 
Specimen  15.  This  was  indicated  by  the  lack  of  symmetry  in  the 
off-diagonal  terms  of  the  influence  coefficients  as  presented  in 
Table  IV.  The  notation  DRR  signifies  Direct  Rayleigh-Ritz ,  which 
is  SS8.  The  notation  USA  denotes  Unified  Structural  Analysis,  a 
finite  element  procedure.  It  can  be  seen  in  the  table  that  SS8 
models  the  bending  stiffness  better  than  the  finite  element 
procedure,  but  does  worse  for  the  torsional  stiffness.  Generally, 
the  correlation  was  rather  poor,  but  no  cause  for  this  could  be 
found.  The  problem  is  suspected  to  be  that  for  these  panels  the 
chordwise  boundary  conditions  are  free-free,  and  the  free-free 
modes  are  not  operating  properly. 


3.2  STABILITY 

The  stability  option  of  Procedure  SS8  is  the  most  important 
option  available  to  the  composites  analyst  and  designer.  The 
fact  that  composite  shells  exhibit  complicated  coupling  between 
material  and  geometric  stiffness  effects  precludes  the  use  of 
simple  design  formulas. 
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Table  IV  FLEXIBILITY  MATRIX  ELEMENTS  FOR 
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*Analysis  of  16  as  a  flat  plate  for  comparison  purposes  -  not  a  test  specimen 


The  procedure  was  checked  for  composite  plate  stability 
with  Procedure  RA5  and  compressive  buckling  of  curved  isotropic 
plates  with  Timoshenko  [8]  .  Good  agreement  was  obtained  in  both 
cases . 

Compressive  buckling  of  composite  curved  plates  was  correla¬ 
ted  with  an  extensive  test  series  especially  instituted  for  this 
program.  Shear  buckling  of  curved  plates  was  correlated  with 
design  development  tests  for  the  F-5  fuselage  component. 


3.2.1  Panel  Compression  Tests 

The  test  panels  and  test  fixture  used  in  the  compression 
tests  were  described  previously  in  Section  3.1.1  and  are  shown 
in  Figures  5-9. 

Variations  in  the  panels'  curvature  and  warpage  were  slight 
and  were  corrected  upon  installation  in  the  rigid  loading  fixture. 
Parallelism  of  loaded  edges  was  determined  on  installation  and 
corrected,  where  necessary,  prior  to  a  test  run  (parallelism  to 
0.003  in.  over  the  edge  length  was  assumed  permissible). 

Prior  to  assembly  in  the  test  fixture,  each  panel  was  bordered 
with  Teflon  tape,  .003-inch  thick,  at  all  points  that  would  be 
contacted  by  metal.  This  reduced  the  shear  loads  at  the  edges 
that  resulted  from  high  friction  forces. 

The  structural  similarity  of  the  curved  panel  specimens  was 
such  that  a  reliable  test  procedure  had  to  be  developed  and  rigidly 
adhered  to  in  order  to  clearly  distinguish  between  the  response 
of  the  vaiious  panels.  To  aid  in  this  process,  the  same  holding 
fixture,  which  accepted  various  panel  thicknesses,  was  used  in 
all  vibration,  pressure  and  buckling  tests.  A  common  procedure 
for  installing  the  panels  and  aligning  the  set-up  for  test  runs 
proved  to  be  highly  relevant  in  obtaining  repeatable  and  satis¬ 
factory  results.  The  salient  features  in  installing  the  panel 
were  to  finger- tighten  the  bolts  on  the  unloaded  edge  supports 
when  simple  support  conditions  were  used,  and  wrench-tighten 
(to  60  in. -lb.)  the  bolts  where  clamped  supports  were  used. 

In  each  case,  the  bolts  were  checked  after  two  low-load  excursions 
were  applied  (these  loadings  were  used  to  seat  the  panel  and  remove 
most  of  the  hysteresis). 

Following  the  panel  installation  an  axial  load  was  applied 
using  a  120,000-pound  Baldwin  Universal  test  machine. 
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In  the  buckling  test,  the  information  required  was  out-of¬ 
plane  movement  of  the  panel  as  the  axial  load  was  increased  from 
100  pounds  to  the  critical  load  level.  This  movement  was  moni¬ 
tored  by  two  methods:  a  linear  differential  transformer  whose 
output  was  sent  to  a  machine -mounted,  x-y  drum  recorder  and  by 
the  moire'  shadow  method. 

The  moire  grid  shadow  method  is  an  experimental  procedure 
used  to  measure  out-of-plane  movements  of  a  surface.  Its  principal 
advantage,  especially  for  buckling  tests,  is  that  a  full-field 
view  of  surface  movements  can  be  observed  as  the  test  progresses. 

A  brief  description  of  how  the  method  works  and  the  equipment 
used  in  its  application  on  the  panel  studies  are  explained  in 
the  following  paragraphs.  The  development  of  this  procedure 
was  based  on  the  information  obtained  from  Reference  [9]  . 

The  essential  pieces  of  equipment  used  in  developing  the 
moire  patterns  are  a  master  grid  pattern  and  a  rigid  transparent 
backing  plate  to  hold  the  grid  next  to  the  panel.  Locations  of 
these  elements  on  a  typical  test  are  sketched  in  Figure  17.  In 
the  experiments  described  in  this  report,  a  Kodak  Carousel  pro¬ 
jector  for  the  light  source  and  a  mounted  plexiglas  plate,  formed 
to  the  same  contour  as  the  specimen,  to  hold  the  grid  pattern  in 
place  was  used.  This  is  shown  in  Figures  18  and  19.  With  this 
set-up,  the  grid  shadow  was  obliquely  cast  on  the  white  surface 
of  the  panel.  The  observer,  looking  through  the  master  grid, 
saw  two  grids  superimposed,  and  as  the  panel  points  moved  to,  or 
away  from,  the  master  grid,  the  shadowed  grid  would  move  up  or 
down  by  the  amount 


\j  •=.  S  taw 

When  the  panel  deflected  a  distance  equal  to  the  pitch,  p  , 
of  the  master  grid  a  dark  band  or  fringe  would  appear.  The 
shape  and  width  of  the  fringe,  as  well  as  the  number  of  fringes 
seen  in  an  area  were,  therefore,  a  function  of  the  change  in 
curvature  of  the  panel  over  the  given  area  and  the  grid  pitch. 

For  example,  a  local  buckle  or  a  tight  hump  in  the  panel  would 
display  very  narrow  and  closely  spaced  fringes,  whereas  an  overall 
buckle  would  show  very  wide  fringes  which  would  be  spaced  far 
apart.  On  the  other  hand,  if  the  grid  pitch  were  halved,  the 
sensitivity  of  the  set-up  would  be  doubled,  or,  twice  as  many 
fringes  per  unit  deflection  would  be  seen.  The  type  of  grid 
originally  used  in  the  buckling  test  was  determined  by  assuming  a 
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Figure  17  Test  Set-Up  Using  the  Moire  Grid  Shadow  Method 
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Figure  18  Rear  View  of  Master 

Grid  Plate  and  Support 
Structure 


SMD7053 


Figure  19  Master  Grid  as  Mounted 
on  Curved  Plexiglass 
Surface 
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sensitivity  of  one  fringe  per  0.01-inch  deflection  would  be 
desirable.  Using  the  following  equation 

p  —  cTtak*  ds,  O.Ol  TAK>  GO*  (111) 

it  was  determined  that  0.017  inch/grid  lines,  or  approximately 
50  lines  per  inch,  would  be  acceptable.  Buckling  tests  with  this 
pattern  showed  promising  results  but  a  need  for  more  sensitivity 
was  required  to  obtain  a  better  definition  of  the  panel's  deflec¬ 
tion.  Subsequent  tests  showed  that  grids  having  100  lines/inch 
gave  satisfactory  results. 

Upon  installation,  the  differential  transformer's  plunger 
was  lightly  spring-loaded  against  the  panel  and  displaced  such 
that  a  null  balance  was  achieved  at  the  recorder.  The  location  of 
the  plunger  relative  to  the  panel  was  established  by  viewing  the 
movements  of  the  moire  fringe  pattern  on  the  opposite  face  during 
the  initial  loadings.  The  area  having  the  greatest  fringe  shift 
indicated  the  most  out-of-plane  activity,  thus  locating  the 
plunger  to  obtain  maximum  deflections. 

The  moire  patterns,  which  were  developed  on  the  white  surface 
of  the  painted  panel,  were  used  to  stop  the  loading  when  buckling 
was  observed  to  be  imminent.  The  characteristics  of  the  pattern 
at  this  point  were  rapid  fringe  movement  and  the  decreasing  distance 
between  adjacent  fringes.  When  these  conditions  occurred,  the 
load  was  immediately  dumped  and  the  maximum  load  attained  was 
recorded. 

The  test  setup  and  some  representative  moire  photographs  are 
shown  in  Figures  20  through  25.  Many  more  photos  are  shown  in 
Reference  [7]  . 

During  the  time  the  moire  patterns  were  being  observed,  a 
simultaneous  plot  of  the  out-of -plane  motion  at  an  established 
point  on  the  opposite  panel  face  was  made.  This  plot  of  deflec¬ 
tion  vs.  load  was  provided  by  the  test  machine's  integral  recording 
system.  These  curves,  an  example  of  which  is  shown  in  Figure  26, 
were  used  to  obtain  Southwell  plots  (see  Figure  27)  which  ulti¬ 
mately  provided  the  critical  buckling  load  of  the  panel.  All 
Southwell  plots  are  shown  in  Reference  [7] .  The  Southwell  method 
is  a  technique  for  obtaining  the  buckling  load  of  a  structure 
from  experimental  load-deflection  information.  The  details  of 
its  implementation  differ  depending  on  the  structure  being 
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Applied  Load,  lbs 


CCSS;  P  =  715# 


d.:  CCCC;  P  =  20,560# 


Cond.:  CCSS;  P  =  725#  (Post-Buckle) 

Figure  24  Moire  Patterns 
for  -37A 


Figure  25  Moire  Patterns 
for  -47B 


Curve  Appeared  well  Established  at 
4000  lbs,  therefore,  Data  Reduction 
Started  at  this  Point 
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See  Figure  27 
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Figure  26  Typical  Load-Deflection 
Curve 


Figure  27  Southwell  Curve 
for  -33B 


analyzed.  It  has  been  used  for  the  buckling  of  columns,  beam- 
columns,  plates,  and  more  recently,  shells. 

The  theoretical  basis  for  the  use  of  the  Southwell  method 
for  shells  may  be  found  in  the  works  of  Tenerelli  and  Horton  [lOj 
and  Galletly  and  Reynolds  [ll]  .  A  modification  of  the  method  of 
Tenerelli  and  Horton  was  used  here. 

Briefly,  the  moire  grid-shadow  method  was  used  in  the  initial 
load  cycle  (below  the  buckling  load)  to  find  the  point  of  maximum 
deflection  on  the  shell.  The  linear  variable  differential  trans¬ 
former  (LVDT)  was  then  positioned  to  read  deflections  at  that 
point.  On  subsequent  load  cycles,  the  load-deflection  plot  for 
that  point  was  read  out  on  the  rotating  drum  of  the  test  machine. 

A  typical  plot  is  shown  in  Figure  26. 

The  actual  Southwell  plots  were  generated  by  using  a  Hewlett- 
Packard  9100B  calculator  with  a  plotter.  A  program  was  written 
to  take  the  load-deflection  data  as  input  and  produce  a  plot  of 
(deflection/applied  load)  versus  deflection.  Using  the  straight 
portion  of  this  plot,  the  buckling  load  is  calculated  as  the 
inverse  of  the  slope  of  the  line. 

The  moire  procedure  used  in  obtaining  buckling  loads  of  the 
various  panels  proved  to  be  quite  satisfactory  and  saved  the 
majority  of  panels  for  future  tests.  There  were,  however,  a 
number  of  panels  that  snapped  into  a  post-yield  buckle  before 
loading  could  be  stopped.  When  this  condition  occurred  the 
panels  were  damaged  to  the  extent  that  subsequent  load  cycles 
produced  lower  buckling  loads.  On  the  other  hand,  when  the  loads 
were  dumped  at  initial  evidence  of  buckling,  subsequent  loading 
cycles  produced  repeatable  results.  On  a  few  panels,  all  three 
methods  (moire,  Southwell  and  snap- through)  were  used  to  obtain 
the  critical  buckling  load.  Comparing  the  results  of  these  methods, 
using  Table  V,  it  can  be  seen  that  satisfactory  correlation 
exists . 

Curved  aluminum  panels  were  also  tested  to  obtain  base 
reference  data  for  evaluating  the  edge  restraints  of  the  fixture. 

The  results  from  these  tests  indicated  that  the  clamping  action 
on  the  loaded  edges  of  the  specimens  was  very  near  the  classical 
value,  however,  the  simple  supports  provided  slightly  more  than 
classical  restraint.  This  excess  edge  moment  was  10  inch-pounds 
per  radian  per  inch  of  length.  This  value  was  determined  to  be 
within  acceptable  limits  and  the  tests  proceeded  without  further 
alterations  in  set-up  procedures. 
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TABLE  V 
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BUCKLING  RESULTS  FOR  GRAPHITE-EPOXY  COMPOSITE  CURVED  PANELS 
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During  the  course  of  the  buckling  tests,  a  documentary  film 
was  generated  showing  the  installation  and  testing  of  a  typical 
graphite  panel.  This  film,  which  is  retained  in  the  Composite 
Structures  Engineering  Group,  provides  a  graphic  display  of  the 
moire  pattern  development  as  the  panel  was  loaded  and  the  onset 
of  buckling. 

Table  V  includes  the  SS8  classical  buckling  load  predictions 
for  each  panel  as  well  as  the  knockdown  factor  predicted  by  SS8 
based  on  the  standard  deviation  in  thickness  of  each  panel.  For 
the  aluminum  panels,  the  knockdown  factor  is  found  from  the 
equation  (Reference  [50]  ) 

\)  ,  ^  r  ^  (112) 

y=  ^-o.9o\Ci-e.  ) 

Although  the  knockdown  factor  based  on  the  standard  deviations 
of  the  panel  thickness  is  not  always  conservative,  it  does  indi¬ 
cate  trends  fairly  well  and  should  be  investigated  further. 

Figure  28  is  a  summary  of  all  the  buckling  data  obtained  in 
terms  of  the  ratio  between  experimental  and  classical  buckling 
load  versus  R/t.  In  Figures  29  through  38,  the  results  according 
to  laminate  orientation  are  separated  to  show  that  some  types 
of  laminates  seem  to  be  much  more  sensitive  to  imperfections  than 
others  and  that  the  thin  laminates  are  the  most  sensitive. 


3.2.2  Panel  Shear  Tests 

Two  test  specimens,  one  graphite-epoxy  and  one  boron-epoxy, 
were  used  in  this  investigation.  Each  specimen  consisted  of  an 
assembly  of  four  quarter-circle  panels  nine  inches  long  on  a  12- 
inch  radius,  as  shown  in  Figure  39.  In  both  cases  the  basic 
test  panels  consisted  of  eight  plies  oriented  at  +45  degrees  to 
the  cylinder  axis . 

Loads  were  applied  to  the  test  apparatus  to  produce  pure 
torsion.  Strain  gages  were  installed  on  both  the  inner  and  outer 
surfaces  of  each  panel.  Electrical  deflection  gages  were  installed 
inside  the  specimens  to  record  radial  deflection  of  the  panels. 

Testing  was  directed  toward  (1)  the  determination  of  the 
buckling  stress  and  (2)  the  examination  of  the  post-buckling 
strength.  Determination  of  buckling  stresses  required  loading 
the  specimens  to  75-90  percent  of  the  buckling  load.  This 
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Figure  28  Curved  Panel  Buckling  Summary 


SMD7067 


SMD7068 


Figure  39  Curved  Panel  Test  Assembly 


procedure  was  usually  repeated  several  times  to  check  the  repeata¬ 
bility  of  the  data.  This  process  was  repeated  for  both  directions 
of  applied  torque  to  determine  the  buckling  stresses  for  different 
directions  of  applied  shear.  Because  the  composite  panels 
consist  of  relatively  few  plies,  stacking  results  in  a  basic 
imbalance  with  respect  to  laminate  bending.  This  results  in 
significantly  different  values  of  shear  buckling  stress  of  the 
panel  for  opposite  directions  of  shear  application. 

Buckling  stresses  were  experimentally  determined  through  a 
"modifed"  Southwell  Method  which  is  a  logical  extension  of  the 
works  of  Galletly  and  Reynolds  [l]]  ,  and  of  Horton  and  Craig  [12]  . 
This  method  requires  loading  only  near  the  actual  buckling  load 
which  is  desirable  since  actually  buckling  the  test  specimen  could 
cause  local  damage  and  affect  subsequent  results.  Moreover,  the 
method  allows  use  of  the  more  reliable  strain  gages  as  opposed 
to  deflection  gages. 

This  method  utilizes  the  stress  (or  load)  versus  surface 
strain  curve  from  any  point  on  the  buckle  at  loads  approaching 
buckling.  This  curve  becomes  increasingly  nonlinear  as  the 
buckling  load  is  approached,  because  of  the  increase  of  local 
bending  at  the  buckle.  The  departure  from  linearity  in  terms 
of  strain  is  defined  as  Ae  .  According  to  Galletly  and  Reynolds 
[liO  t  the  buckling  stress  (load)  is  equal  to  the  inverse  slope 
of  theAe/P  versus  Ae  curve,  (P  may  denote  either  load  or  stress). 
This  technique  was  applied  to  all  strain  data  taken  during  these 
tests  with  generally  good  results.  Values  of  e  much  below  100 
/iin./in.  generally  give  unreliable  results  because  of  the  sensi¬ 
tivity  limits  on  instrumentation.  Typical  results  are  shown 
below  in  the  separate  discussions  of  each  test. 

Results  of  the  buckling  tests  on  the  graphite-epoxy  panels 
are  summarized  in  Table  VI.  Data  was  obtained  from  each  of  the 
four  panels  composing  the  test  assembly.  Conditions  1  and  2 
refer  to  different  directions  of  shear.  As  is  seen,  a  signifi¬ 
cant  difference  in  buckling  loads  results . 

Strain  gage  rosettes  placed  back-to-back  in  pairs  were  used 
to  obtain  the  data  for  the  buckling  stress  determination.  These 
gages  were  also  used  to  compute  K^y  which  relates  the  shear 
stress  on  each  panel  r  to  the  total  load  P  applied  to  the  test 
assembly.  These  gages,  with  the  exception  of  1  and  2  (Table  VI) 
are  located  at  the  center  of  the  panel.  Gages  1  and  2  were  located 
in  a  corner  near  the  edge. 
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Table  VI  GRAPHITE-EPOXY-CURVED  PANEL  SHEAR 
BUCKLING  RESULTS 
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■theory 

7PP  =  9170  psi  CL-CL  _  io  c-jn  •  or 

LR  ^  ^  =  13,670  psi  CL-CL 

=  7420  psi  SS-SS  =  10,720  psi  SS-SS 


Deflection  gages  were  placed  to  monitor  lateral  deflection 
at  the  panel  center.  Because  of  their  low  sensitivity  these 
gages  did  not  record  any  appreciable  deflection  until  the  panels 
actually  buckled  and  very  large  deflections  resulted.  This 
behavior  is  shown  in  Figure  40.  The  points  at  which  the  deflec¬ 
tions  became  large  are  those  values  listed  in  Table  VI.  These 
values  support  the  Southwell  data  very  well. 

Theoretical  buckling  stresses  were  determined  for  the  case 
of  clamped  edges  and  simply  supported  edges.  The  values  (Table 
VI)  for  the  clamped  edges  agree  very  well  with  the  experimental 
results.  Actual  edge  conditions  approach  the  clamped  case 
because  of  the  stiff  edgemembers  and  ample  mechanical  fasteners 
used. 


An  example  of  typical  data  used  in  the  Southwell  determina¬ 
tion  is  shown  in  Figure  41.  This  data  was  taken  for  Condition  1 
at  Panel  4.  The  associated  Southwell  plots  are  seen  in  Figure 


42. 


Post-buckling  behavior  of  the  graphite-epoxy  panels  was 
characterized  by  large  deflections  with  several  buckles  visible 
in  each  panel  (see  Figure  43).  The  behavior  in  terms  of  deflec¬ 
tion  is  illustrated  in  Figure  2.  Buckling  of  each  panel  occurred 
in  sequence  with  a  load  drop  accompanying  each.  With  all  four 
panels  buckled,  only  a  small  amount  of  additional  load  was 
carried  (20%)  before  failure.  Failure  occurred  catastrophically 
at  an  average  panel  stress  of  approximately  16,000  psi  as  typically 
shown  in  Figures  44  and  45. 

Results  of  the  boron-epoxy  buckling  tests  are  summarized 
in  Table  VII.  As  before,  loads  and  buckling  stresses  for  both 
directions  of  loading  were  obtained  with  back-to-back  strain 
gages  on  each  of  the  four  panels. 

The  data  is  seen  to  be  very  consistent.  Analysis  is  seen 
to  agree  favorably  as  before  although  the  results  approach  the 
case  of  simply-supported  edges. 

Typical  load-strain  curves  and  the  associated  Southwell 
plot  for  the  boron  panels  are  shown  in  Figures  46  and  47. 

Visual  and  photographic  observations  of  the  post  buckling 
behavior  revealed  that  cracks  appeared  very  soon  after  buckling 
occurred.  Very  little  additional  load  was  carried  beyond  buck¬ 
ling.  The  highest  load  attained  was  21,500  pounds  while  buckling 
occurred  at  19,000  to  20,000  pounds. 
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Table  VII  BORON-EPOXY  CURVED  PANEL  SHEAR  BUCKLING  RESULTS 
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Theory  Theory 

^CR  “  CL-CL  =  13,290  psi  CL-CL 

=  7600  psi  SS-SS  =  10,480  psi  SS-SS 


3.3  VIBRATION 


The  vibration  option  was  run  extensively  in  checkout  of  SS8. 
Again,  the  anisotropic  plate  capability  was  checked  with  RA5  and 
showed  good  agreement. 

The  work  of  Sewall  (Reference  [14])  was  used  to  compare 
natural  frequency  data  for  isotropic  curved  panels.  As  an  example 
of  the  type  of  correlation  obtained,  the  following  results  were 
obtained  for  an  aluminum  panel  with  a  =  11.0  inches,  b  =  9.0 
inches,  t  =  0.028  inch,  and  R  =  48.0  inches.  For  one  longi¬ 
tudinal  and  two  circumferential  modes,  the  following  results  were 


obtained: 

f .  cps 

SS8,  simply  supported  edges  180.0 

Sewall  analysis,  simply  supported 

edges  184.0 

SS8,  clamped  edges  468.6 

Sewall  analysis,  clamped  edges  536.5 


The  results  indicate  that  SS8  gives  a  better  frequency 
estimate  than  Sewall 's  analysis,  since  an  energy  solution  gives 
an  upper  bound  for  the  frequency,  and  SS8  shows  a  lower  frequency 
in  both  cases.  This  is  to  be  expected  because  Sewall  neglected 
modal  coupling  effects  in  his  one-term  Rayleigh- t3rpe  analysis. 

For  isotropic  cylinders,  the  results  of  Park,  et  al.  (Ref¬ 
erence  [15]),  were  used  for  comparison.  They  tested  a  steel 
cylinder  built  in  at  one  end  and  free  at  the  other.  The  dimen¬ 
sions  were  a  =  48.0  inches,  R  =  10.0  inches,  and  t  =  0.03  inches. 
They  found  the  lowest  natural  frequency  atm=l,  n=4of 
50.4  cps.  SS8  predicts  a  value  of  51.9  cps.  Form=l,  n=3, 
the  experimental  value  was  51.5cps.,  while  SS8  predicts  55.3 
cps.  For  m  =  1,  n  =  5,  the  experimental  value  was  70.9  cps., 
while  SS8  predicts  71.5  cps. 

The  anisotropic  capability  of  SS8  was  tested  by  comparing 
its  results  with  those  of  Bert,  et  al.  (Reference  [l^) ,  who 
presented  exact  analytical  solutions  for  the  natural  frequencies 
of  anisotropic  simply-supported  cylinders.  As  an  example,  they 
studied  a  two-layer,  cross-ply  cylinder  using  material  properties 
typical  of  boron-epoxy.  Some  examples  of  the  excellent  agreement 
obtained  are  shown  below. 
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SS8 


M 


N 


Ref.  (11) 

235  cps  235  cps  1  2 

254  cps  253  cps  1  3 

443  cps  443  cps  2  3 

The  dynamics  of  a  cylinder  with  four  internal  stringers  has 
been  investigated  and  these  investigations  are  documented  in 
References  [l7j  ,  [l8j  ,  and  [l9]  .  The  SS8  results  for  this  case 
show  its  discrete  stiffener  capability. 


SS8  Anal. 

Ref.  17  Expt. 

Ref.  18  Anal. 

Ref.  19  Anal 

M  =  1, 

M  =  1, 

N  =  3 

N  =  4 

163  cps 

99  cps 

100  cps 

158  cps 

99  cps 

159  cps 

100  cps 

M  =  1, 

N  =  5 

91  cps 

87  cps 

91  cps 

93  cps 

M  =  1, 

N  =  6 

106  cps 

104  cps 

105  cps 

115  cps 

Many  other  sources.  References  [20]  -  [47]  ,  were  consulted 

for  analytical  and  experimental  information.  Detailed  correla¬ 
tion  with  these  sources  was  not  attempted  since  the  layered 
composite  capability  could  best  be  explored  further  through  our 
test  program. 


3.3.1  Fuselage  Program  Tests 

The  specimens  and  fixture  used  for  the  Fuselage  Program 
tests  were  described  in  Sections  3.1.1  and  3.2.1.  The  setup  of 
equipment  for  the  vibration  tests  is  shown  in  Figures  48  and  49. 

The  panel  specimens  were  tested  in  the  fully  clamped  boundary 
condition. 

In  the  vibration  tests  the  axial  load  was  maintained  at 
100  pounds  while  the  panel  was  tapped  with  a  cardboard  cylinder 
to  set  the  panel  vibrating  at  its  resonant  frequency.  This  fre¬ 
quency  was  monitored  by  the  following  equipment.  The  transducer 
was  a  one  gram  MB  Electric  Velocity  Pickup  (Model  115)  connected 
to  a  Tektronix,  Storage  type  Oscilloscope  (Model  549) .  Incorporated 
in  the  system  was  a  Krohn-Hite  Variable  Band  Filter  to  obtain  the 
frequency  output  within  the  ranges  of  interest.  Photographs  of  the 
oscilloscope  traces  were  made  with  a  Hewlett-Packard  Camera 
(Model  197A).  These  photographs  constituted  the  data  output  of 
the  system. 
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Figure  48  Test  Setup  and  Instrumentation  for  Vibration  Tests 

SMD7074 


Figure  49  Vibration  Setup  Showing  Closeup  of  Velocity  Transducer 
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Typical  photographs  obtained  during  the  vibration  tests  are 
included  in  Figure  50.  All  the  photographs  are  given  in  Reference 
[7],  The  fundamental  frequency  was  obtained  from  these  pictures 
using  the  following  conversion  formula: 

%  "  cycles/record 

where:  (o  =  fundamental  frequency, 

o 

N  =  number  of  cycles  counted, 

d  =  distance  on  photograph  to  include  N  cycles, 

R  =  ratio  of  object  to  image  size  to  correct  for 
photographic  reproduction,  and 

K  =  constant  set  in  on  oscilloscope,  seconds/cm 

The  actual  process  for  measuring  the  distances  on  the  photograph 
and  converting  the  results,  was  accomplished  on  the  Hewlett- 
Packard  Data  Reduction  equipment.  The  final  results  are  tabulated 
in  Table  VIII.  The  table  shows  panel  number,  laminate,  the 
percent  difference  between  experimental  and  results  obtained 
using  a  10  in. -lb. /rad /in.  elastic  restraint  on  the  straight 
sides,  and  the  natural  frequencies,  including  the  clamped  curved 
edge,  simply  supported  straight  edge  classical  results.  The 
results  show  that  the  actual  side  support  restraint  makes  a  great 
deal  of  difference  in  the  results. 


3.3.2  Dynamic  Characteristics  Program  Tests 

Some  of  the  tests  of  Reference  [13]  were  described  in 
Section  3.1.2.  The  program  also  included  tests  of  stiffened 
curved  panels,  unstiffened  cylinders,  and  a  stiffened  cylinder. 


3. 3. 2.1  Cantilever  Curved  Panels 


The  specimens  are  described  in  Section  3.1.2  and  shown  in 
Figures  14-16.  The  specimens  are  designated  15,  16A,  and  16B 
and  have  15-inch  spans  and  24-ply,  [0/+45^/90]^  laminates. 

Specimen  15  has  a  15-inch  chord  and  a  36-  inch  radius,  while 
Specimens 16A  and  16B  have  6-inch  chords  and  36-  and  12-inch 
radii,  respectively. 

Frequencies  and  mode  shapes  have  been  determined  experi¬ 
mentally  for  the  first  six  natural  modes. 
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Panel  49A,  Mode  1,  1 


Panel  49A,  Mode  1,  2 


Figure  50  Velocity  Traces  for  Panel  49A 
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Preliminary  analyses  were  performed  with  the  DRR  curved 
panel  analysis  procedure  (SS8).  Post-test  analyses  were  per¬ 
formed  with  the  USA  procedure  and  NASTRAN.  All  of  the  analyses 
included  stacking  sequence  effects.  The  test-theory  correla¬ 
tion  data  for  natural  frequencies  is  shown  in  Table  IX.  As  seen 
in  the  table,  the  DRR  analysis  is  in  good  agreement  for  the  bending 
modes,  which  are  dominated  by  the  spanwise  stiffness.  However, 
the  effect  of  curvature  on  the  torsional  stiffness  is  evidently 
being  over-predicted  in  each  case,  thereby  raising  the  frequencies 
for  the  torsion  modes.  Although  several  possible  causes  for  the 
discrepancies  have  been  investigated,  no  satisfactory  explanation 
has  yet  been  found  for  the  failure  of  the  DRR  procedure  to  correctly 
model  the  torsional  stiffness. 

The  opposite  is  true  for  the  finite-element  procedures. 

That  is,  the  USA  and  NASTRAN  analyses  of  Specimen  16B  are  model¬ 
ing  the  torsional  stiffness  accurately,  but  they  are  overestimat¬ 
ing  the  spanwise  stiffness.  Both  simulations  used  piecewise  flat 
element  systems  to  model  the  structure.  The  torsional  modes 
are  not  greatly  affected  by  the  curvature,  but  the  curvature 
effects  dominate  the  bending  deflections.  Therefore,  the  dis¬ 
crepancies  reflect  an  inadequate  representation  of  the  specimen 
curvature.  The  superiority  of  the  USA  analysis  to  the  NASTRAN 
analysis  is  caused  by  the  larger  number  of  elements  used. 

The  agreement  for  Specimen  16A  was  greatly  improved  for  both 
the  DRR  and  USA  analyses.  The  DRR  analysis  overpredicted  the 
first  torsional  frequency,  and  the  USA  analysis  overpredicted 
the  bending  stiffness  for  the  fundamental  mode  and  the  influence 
coefficients.  The  superior  agreement  is  caused  by  the  relatively 
narrow  chord  and  low  curvature. 

The  USA  analysis  of  Specimen  15  follows  the  previously  noted 
trends  in  that  it  correctly  predicts  the  first  torsional  frequency 
and  accurately  predicts  all  of  the  mode  shapes.  In  this  case, 
the  first  bending  mode  frequency  and  all  subsequent  frequencies 
were  predicted  to  be  lower  than  measured.  The  simulation  used 
was  an  equivalent  thickness  and  stiffness  sandwich  model  with  11 
spars  and  16  ribs.  Skin  elements  were  flat,  constant  stress 
triangles.  Agreement  is  not  as  good  as  it  is  for  Specimen  16A 
although  the  curvatures  are  the  same.  The  increased  chord  width 
and  included  angle  increased  curvature  effects  and  made  the 
specimen  more  difficult  to  analyze  with  flat  elements. 

Also  included  in  the  results  is  a  DRR  analysis  of  Specimen 
16  as  a  flat  panel  for  comparison  purposes.  Percent  differences 
for  16A  and  16B  are  shown  to  demonstrate  the  effect  of  curvature. 
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Table  IX  NATURAL  FREQUENCIES  FOR 

CURVED  PANELS 


SPEC. 

NO. 

METHOD 

FREQUENCY  (Hz) 

AVERAGE 
%  ERROR 

1 

2 

3 

'Bl 

5 

6 

15 

Mode 

T 

B 

T 

c 

C 

C 

DRR 

86.0 

107 

226 

293 

313 

459 

21.6 

EXP 

61.0 

94 

178 

2^6 

271 

405 

-- 

16* 

Mode 

B 

T 

B 

T 

B 

C 

DRR 

18.2 

101 

127 

292 

385 

550 

-- 

16A 

Mode 

B 

T 

B 

T 

B 

C 

DRR 

27.8 

163 

344 

438 

609 

4.57 

USA 

29.2 

■WIM 

155 

319 

396 

551 

5.97 

EXP 

26.7 

107 

163 

330 

435 

589 

16B 

Mode 

B 

T 

B 

T 

C 

B 

DRR 

64.5 

187 

345 

428 

754 

790 

17.81 

USA 

71.1 

116 

320 

362 

633 

667 

7.78 

NAST 

81.5 

114 

418 

373 

708 

846 

12.93 

EXP 

60.0 

113 

337 

364 

675 

773 

Modes:  T  =  Torsion,  B  =  Bending,  C  =  Coupled 

^Analysis  of  16  as  a  flat  plate  for  comparison  purposes  - 
not  a  test  specimen. 


76 


3. 3. 2. 2  Stiffened  Panels 


Free-free  natural  frequencies  and  mode  shapes  were  measured 
for  four  stiffened  panels.  Specimens  33  through  36.  One  flat 
panel  and  one  curved  panel  were  fabricated.  Each  panel  was  18 
inches  wide  and  36  inches  long,  and  the  curved  panel  had  a  radius 
of  36  inches.  Each  panel  was  made  of  12  plies  of  boron-epoxy 
oriented  at  +45/90  degrees,  resulting  in  plate  bending  stiffnesses 
Dll  ~  155,  D22  =  330,  and  D56  =  116  Ib.-in^/in.  Specimens  33 
and  35  (curved)  have  three  aluminum  channel  stiffeners  bonded  to 
one  side  at  the  interior  quarter  points . 


Each  stiffener  has  a  cross-sectional  area  of  0.07625  in.  and 
El  =  9508  lb-in. ^  about  the  centroid.  Specimens  34  and  36  were 
made  by  bonding  two  additional  stiffeners  to  the  edges  of  Speci¬ 
mens  33  and  35  after  they  were  tested.  The  specimens  were  sus¬ 
pended  horizontally  with  surgical  tubing  attached  to  one  side 
along  the  panel  length;  this  tubing  was  located  nine  inches  from 
each  end.  The  rigid  body  frequencies  of  the  panel  were  one  Hz 
or  less . 


To  determine  the  validity  of  the  experimental  boundary  con¬ 
ditions,  Specimen  33  was  also  tested  with  the  panel  suspended 
vertically.  The  supports  were  attached  to  one  end  and  were  lo¬ 
cated  five  inches  from  each  side.  Frequencies  and  mode  shapes  were 
the  same  as  those  measured  with  the  panel  suspended  horizontally. 

Available  analytical  and  test  results  for  the  stiffened 
panels  are  given  in  Table  X.  DRR  results  are  shown  for  the  flat 
panels.  Specimens  33  and  34,  and  for  the  same  panel  without 
stiffeners  for  comparison.  Acceptable  analytical  results  for  the 
curved  specimens  were  not  generated  because  of  problems  with  the 
DRR  shell  analysis  procedure  SS8.  Experimental  results  are  shown 
for  the  lowest  seven  to  nine  natural  frequencies  detected.  Analy¬ 
tical  results  for  the  flat  plate  are  not  complete  in  that  some 
higher  mode  shapes  had  frequencies  lower  than  some  of  those  shown. 
Agreement  was  excellent  between  the  experimental  and  analytical 
natural  frequencies  and  mode  shapes  for  the  flat  stiffened  panels. 


3. 3. 2. 3  Unstiffened  Composite  Cylinders 

Two  unstiffened  cylinders,  15  inches  in  diameter  and  16 
inches  in  length,  were  designed  to  study  the  accuracy  of  the 
Rayleigh-Ritz  shell  procedure  SS8  for  full  cylinders . 
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Table  X  NATURAL  FREQUENCIES  (Hz)  FOR  STIFFENED  PANELS 
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Specimen  37  has  six  plies  of  boron-epoxy  oriented  at  0/j45 
degrees,  and  Specimen  38  has  four  plies  of  boron-epoxy  oriented 
at  +45  degrees.  Frequencies,  mode  shapes,  and  damping  coeffi¬ 
cients  were  determined  for  the  natural  modes  of  the  specimen 
corresponding  to  longitudinal  mode  m  =  0,  1,  2  and  the  frequency 
sweep  from  0  to  525  Hz.  The  specimens  were  tested  with  free- 
free  boundary  conditions  as  shown  in  Figures  51-53. 

The  frequency  correlations  are  shown  in  Table  XI  and  Fig¬ 
ures  54  and  55.  The  actual  cylinder  properties  and  the  predicted 
properties  are  given  in  Table  XII.  Agreement  is  good  ever5rwhere 
except  the  m  =  2  modes  for  Specimen  38.  Although  the  lamina 
modulus  in  the  fiber  direction  was  increased  from  30  x  10^  psi 
to  33.7  X  10^  psi  to  account  for  the  apparent  high  fiber  volume 
fraction,  the  reduction  in  thickness  of  the  shell  brought  about 
a  10  percent  lower  longitudinal  stiffness  than  predicted.  This 
resulted  in  lower  frequencies . 


3. 3. 2. 4  Stiffened  Composite  Cylinders 


Specimen  39,  which  is  the  graphite-epoxy  stiffened  shell 
shown  in  Figure  56,  and  in  Figure  57  with  an  unstiffened  cylinder, 
was  fabricated  and  dynamic  tested  to  study  the  accuracy  of  the 
DRR  procedure  SS8  for  shells  with  stiffeners.  This  specimen  is 
24  inches  in  diameter  and  30  inches  in  length  with  an  8-ply 
graphite  shell  with  orientations  of  +45  degrees.  The  plate  bend¬ 
ing  stiffnesses  for  the  shell  are  =  D22  =  97  and  D55  =  80 
Ib-in^/in.  The  shell  is  stiffened  by  four  equally  spaced  aluminum 
external  longitudinal  stringers  with  El  =  2.3  x  10^  lb-in. 2,  two 
graphite  internal  rings  at  one-third  and  two-thirds  of  the  length 
with  El  =  6.4  X  10^  lb  -in^,  and  two  aluminum  external  rings  at 
the  ends  with  El  =  1.6  x  10^  Ib-in^.  Stiffener  El's  were  calcu¬ 
lated  about  their  centroids. 


Attempts  to  analyze  this  cylinder  with  Procedure  SS8  were 
unsuccessful.  Analytical  results  were  simply  not  reasonable  for 
this  specimen.  To  determine  if  the  problem  was  numerical  in 
origin.  Procedure  SS8  was  converted  to  double  precision,  but 
there  was  no  change  in  the  results .  The  problem  is  probably  in 
the  ring  stiffener  formulation,  but  no  error  could  be  found. 
Therefore,  there  are  no  analytical  results  for  this  specimen. 

The  natural  frequencies  and  descriptions  of  the  mode  shapes 
determined  experimentally  are  shown  in  Table  XIII.  The  stiffened 
cylinder  was  tested  with  free-free  boundary  conditions.  The  tech¬ 
nique  used  was  the  same  as  that  used  on  the  unstiffened  cylinders. 
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Figure  51  Dynamic  Testing  of  Figure  52  Dynamic  Excitation  of 

a  Cylinder  a  Cylinder 


Figure  53  Modal  Deflection  Figure  54  Frequency  Correlation 

Measurement  for  Specimen  37 
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2,11  —  —  —  508  478  -5.9 


Table  XII 


CYLINDER  PROPERTIES 


Property 

Specimen  37 

Specimen  38 

Theory 

Actual 

Theory 

Actual 

W,  lb. 

1.648 

1.678 

1.099 

1.089 

t,  in. 

0.0312 

0.03092 

0.0208 

0.0185 

L  »  ii^  • 

16.0 

16.0 

16.0 

16.0 

R,  In. 

7.5 

7.5 

7.5 

7.5 

83 


Table  XIII  STIFFENED  CYLINDER  FREQUENCIES  (Hz) 


Frequency 

Damping 

Mode 

129 

.004 

0,2  Nodes  between  stringers 

152 

.004 

0,2  Nodes  at  stringers 

362 

.012 

0,3 

384 

.008 

1,3 

498 

.008 

0,4 

508 

.110 

2,3  Nodes  at  internal  rings  (1/3) 

550 

.018 

2,2 

582 

.044 

2,3  Nodes  20%  from  ends 

589 

.014 

1,4 

716 

.070 

2,2  &  6 

735 

— 

—  1st  mode  for  center  panels 

933 

.009 

--  Not  identifiable 

967 

.009 

3,4 

1275 

.017 

4,2 
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SECTION  IV 


SUMMARY 


A  Rayleigh-Ritz  analysis  for  laminated  anisotropic  cylindri- 
cally  curved  shells  has  been  performed.  The  analysis  is  formulated 
to  solve  static  deflection,  buckling,  and  natural  vibration 
problems.  Discrete  energy  contributions  from  stringers,  rings, 
lumped  masses, point  loads,  point  and  line  moments,  point  and  line 
springs,  and  elastic  moment  restraints  have  been  included. 

Digital  computer  Procedure  SS8  has  been  written  to  compute 
the  solutions  to  the  above  problems.  The  program  has  some 
limitations,  mainly  in  regard  to  its  treatment  of  free  edges  of 
a  panel.  The  treatment  of  imperfection  sensitivity  in  buckling 
should  not  be  regarded  as  a  final  answer  to  the  difficult  problem 
of  knockdown  factors  in  compression,  but  did  show  promise.  An 
assessment  of  the  accuracy  of  the  discrete  ring  stiffening  capa¬ 
bility  was  clouded  by  the  problem  of  free  edges.  It  is  felt 
that  the  program  serves  a  useful  function  as  written,  but  that  it 
needs  more  development  work  in  certain  areas. 

Also  described  are  various  tests  on  curved  panels  and  cylinders 
which  in  most  cases  were  first  attempts  to  discern  the  effects  of 
curvature  and  anisotropy  in  laminated  composites.  Several 
interesting  test  methods  were  developed,  including  two  applications 
of  the  Southwell  method  and  an  application  of  the  Moire  grid 
shadow  technique. 
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APPENDIX  I 


DESCRIPTION  OF  PROCEDURE  SS8 


The  analysis  described  in  Section  II  has  been  programed  as 
IBM  370  Procedure  SS8.  Due  to  the  large  size  of  the  program,  a 
one-level,  four-element  overlay  tree  is  used.  The  tree  is  shown 
in  Figure  58.  The  longest  resulting  path  is  418K  bytes.  All 
the  subroutines  are  compiled  under  FORTRAN  H,  option  2,  except 
subroutine  ASEMBL,  which  is  compiled  with  FORTRAN  G. 

Subroutines  GSTART,  PROB,  SKIPPR,  STATUS,  and  FREEFD  are 
General  Dynamics  System  Subroutines  which  perform  I/O  and  timing 
functions.  They  would  not  be  used  elsewhere  and  are  not  discussed 
further.  All  other  subroutines  marked  CF  in  Figure  58  are  system- 
resident  mathematical  subroutines  for  matrix  inversion  or  eigen¬ 
value  solutions.  The  purposes  of  the  specially-written  sub¬ 
routines  for  SS8  are  described  below. 


Main  Program 


The  main  program  for  SS8  serves  only  as  a  controller  for 
implementing  the  necessary  overlays.  A  blank  common  area  and  the 
labelled  common  blocks  •'CHECKS';  "CNTROL" , "NUMBER" ,  "GEOM", 
"$TIME",  "ABD",  "PARAM",  "VALUES",  "ARRAYS",  "BLOCK",  "STFVAL", 
and  "FLEXBL"  are  used  for  communication  between  overlays. 


Subroutine  READ 


This  subroutine  reads  all  input  data,  based  on  the  require¬ 
ments  of  the  problem,  checks  the  input  data,  and  does  some  pre¬ 
liminary  calculations. 


Subroutine  CYLNDR 

This  subroutine  calculates  the  appropriate  running  loads  to 
be  used  when  a  force,  torque,  or  bending  moment  is  applied  to  a 
full  cylinder.  It  should  be  noted  that  due  to  the  uncoupling  of 
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BLOCK  (C.B.) 
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the  axial  and  circumferential  assumed  mode  shapes,  torsional 
buckling  results  are  not  possible  with  SS8. 


Subroutine  CHECK 


This  subroutine  writes  a  message  and  sets  an  error  flag  when 
subroutine  READ  detects  an  input  error. 


Subroutine  STIFF 


This  subroutine  calculates  the  A,  B,  and  D  stiffness  terms 
as  defined  in  Reference  [3],  and  implemented  in  References  [1] 
and  [48],  for  a  laminated  plate. 


Subroutine  TABLE 


This  subroutine  controls  the  calculation  of  the  necessary 
integral  tables  of  assumed  modes  in  the  x  and  y-directions . 


Subroutine  INTEGL 


This  subroutine,  adapted  from  Reference  [1],  uses  a  highly 
efficient  algorithm  for  calculating  the  necessary  beam-mode 
integrals.  By  calling  PPP  and  SPECAL,  it  calculates  the  single 
function  integrals  and  the  special  cases  for  free-free  and 
simple-free  boundary  conditions.  At  625  points  on  the  normalized 
shell  surface,  it  calculates  the  value  of  the  mode  functions  and 
their  derivatives.  At  any  stiffener  locations,  it  calculates 
integrals,  mode  functions  and  derivatives. 


Subroutine  SPECAL 


This  subroutine  calculates  the  integrals  and  mode  constants 
for  the  simple-free  and  free-free  boundary  conditions. 
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Subroutine  ELASTC 


This  subroutine  implements  the  elastic  moment  restraint^ 
boundary  condition  by  calculating  the  beam-mode  constants  which 
are  dictated  by  the  input  moment  restraint. 


Subroutine  PPP 


This  subroutine  calculates  the  single-function  beam-mode 
integrals . 


Subroutine  ASEMBL 


Based  on  the  input  geometry  and  material  properties  and  the 
calculated  integrals,  this  subroutine  assembles  the  matrices  of 
potential  energy,  kinetic  energy,  lateral  loads,  and  edge  loads 
as  required  by  the  problem  being  performed.  This  assembly  is 
done  in  submatrix  fashion  representing  u,  v,  and  w  partitions. 


Subroutine  SOLVE 


This  subroutine  uses  the  matrices  from  ASEMBL  to  solve  the 
appropriate  eigenvalue  problem  or  simultaneous  equations.  It 
makes  use  of  subroutines  AREAY,  NROOT,  and  EIGEN  from  the  IBM 
Scientific  Subroutine  Package. 


Subroutine  YOSFEM 


This  subroutine  was  written  to  perform  multiplication  of  two 
large  matrices  by  using  a  minimum  amount  o^  extra  core  storage. 
Optionally  the  product  matrix  may  be  stored  in  the  premultiplier 
matrix  or  the  postmultiplier  matrix. 
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Subroutine  EIGONE 


For  a  single  eigenvalue  and  eigenvector  solution,  the  power 
method  is  an  efficient  algorithm.  This  method  is  used  when  a 
single  buckling  eigenvalue  or  frequency  is  desired. 


Subroutine  EIGALL 


This  subroutine  finds  all  the  eigenvalues  of  the  matrix 
using  the  QR  transform.  The  algorithm  is  programmed  into  three 
Convair  Aerospace  resident  subroutines,  HESSEN,  QREIG,  and  QRT. 
Once  the  eigenvalues  are  found,  the  desired  number  of  eigenvectors 
are  found  using  a  matrix  decomposition  technique  in  Subroutine 
EGNVCT. 


Subroutine  EGNVCT 


Using  the  original  matrix  and  a  known  eigenvalue,  this 
routine  uses  matrix  decomposition  to  find  the  corresponding 
eigenvector. 


Subroutine  PRINT 


This  subroutine  performs  various  output  functions,  such  as 
finding  the  dominant  term  in  an  eigenvector,  calculating  the 
problem  execution  time,  and  controlling  other  output  subroutines. 


Subroutine  DISPLA 


This  subroutine  calculates  and  prints  deflections,  curva¬ 
tures,  moments,  shears,  and  edge  reactions.  All  but  edge 
reactions  are  printed  at  625  equally-spaced  points  on  the 
developed  shell  planform. 
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Subroutine  OUT 


This  subroutine  transforms  the  output  arrays  into  a  form 
for  efficient  printing. 

Subroutine  STRESS 

This  subroutine  calculates  stresses  and  strains  at  the 
625  grid  points. 

Subroutine  NRMLIZ 

This  subroutine  finds  the  largest  value  in  each  output 
array  and  normalizes  with  respect  to  it. 

Subroutine  ROTATE 

This  subroutine  performs  a  strain  transformation  of 
coordinates  from  one  angle  to  another.  It  is  used  to  check 
margins  of  safety  in  various  directions. 

Subroutine  MARGIN 

This  subroutine  calculates  margins  of  safety  according  to 
the  maximum  strain  theory  of  failure. 

Subroutine  SEARCH 

This  subroutine  keeps  track  of  the  minimum  margin  of 
safety  as  well  as  its  mode  and  location. 
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Subroutine  FLEX 


It  is  often  desirable  to  determine  an  influence  coefficient 
or  flexibility  matrix  for  a  structure  being  analyzed.  Since  all 
of  the  problem  types  under  consideration  contain  a  term 

[V)  {a} 

where  [V]  is  the  varied  strain  energy  density  or  the  structural 
stiffness  matrix  in  the  generalized  coordinates  aimn* 

To  obtain  the  point  force-displacement  flexibility  matrix, 
the  [V]  matrix  must  first  be  partially  inverted  to  produce  the 
lateral  stiffness  matrix  [S]  in  terms  of  the  generalized  lateral 
coordinates  a3iiin*  The  stiffness  matrix  [S]  may  then  be  inverted 
and  transformed  from  shape  to  point  coordinates.  The  transforma¬ 
tion  matrix  can  be  found  from  the  expression  for  the  lateral 
displacement  at  a  point: 

^i  =  2  2^  a3njn  X3n,(xi)  Y3n(yi) 

m  n 

th 

where  (x^,  yi)  are  the  coordinates  of  the  i  point.  For  N 
equations,  this  may  be  expressed  in  matrix  form  as 

•  [R]  {a] 

where  [R]  is  the  required  transtcrmation  matrix.  The  desired 
flexibility  matrix  [F]  can  then  be  computed  from 

[F]  =  [R]  [S]'^  [R]’^ 

at  the  N  specified  control  points. 


Subroutine  REDUCE 


This  subroutine  performs  the  partial  inversion  of  the  matrix 
containing  membrane  and  bending  degrees  of  freedom  to  reduce  it 
to  only  its  bending  degrees  of  freedom. 


99 


Subroutine  KDF 


This  subroutine  uses  the  analysis  of  Reference  [49]  to 
account  for  imperfection  sensitivity.  It  is  an  approximation 
since  the  Reference  [49]  analysis  is  done  for  a  simply-supported 
full  cylinder  and  relies  on  a  precise  definition  of  an  axisym- 
metric  imperfection.  For  the  purpose  of  this  study,  the  standard 
deviation  of  the  thickness  over  the  shell  is  used  as  a  measure 
of  imperfection,  and  the  knockdown  factor  for  the  full  cylinder 
is  assumed  to  apply  to  any  partial  cylinder  regardless  of 
boundary  conditions. 


Subroutine  CUBIC 


This  subroutine  solves  for  the  lowest  real  root  of  a  cubic 
polynomial  as  required  by  KDF.  This  is  done  by  Newton-Raphson 
iteration  for  the  first  root,  and  then  by  synthetic  division  and 
the  quadratic  formula  for  the  other  two. 


Subroutine  MIN 


This  is  a  general  subroutine  for  determining  the  smallest 
element  in  a  vector  of  values. 


Subroutine  SWITCH 


This  subroutine  is  used  in  the  matrix  operations  of  subroutine 
SOLVE.  It  changes  diagonal  elements  in  a  matrix  from  0.  to  1. 
or  vice-versa.  It  is  used  to  prevent  the  singular  matrices 
(which  arise  for  some  problems  involving  rigid-body  modes)  from 
inhibiting  a  solution. 
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APPENDIX  II 

CUSTOMER  INSTRUCTIONS  FOR  SS8 
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PROCEDURE  SS8 


Anisotropic  Curved  Panel  Analysis  Program 


21  January  1970 
D.  J.  Wilkins 


PROBLEM  DESCRIPTION 


This  procedure  analyzes  cylindrically  curved  panels  with 
respect  to  dynamic  response,  buckling,  and  static  deflection. 
Vlasov  shell  theory  is  used  for  the  formulation  and  the 
Rayleigh-Ritz  energy  method  is  used  for  the  solution.  The 
integral  generation  scheme  from  Procedure  RA5  is  also  employed. 

The  procedure  is  capable  of  analyzing  flat  plates,  cylind¬ 
rically  curved  panels,  and  full  cylinders.  All  combinations  of 
clamped,  and  simply  supported  edges,  and  some  combinations  of 
free  edges  may  be  specified.  Elastic  boundary  restraint  may 
also  be  specified. 

The  material  may  be  isotropic,  a  laminate  of  identical 
orthotropic  layers,  a  laminate  of  dissimilar  orthotropic  layers, 
or  a  sandwich  with  orthotropic  facings.  (No  transverse  shear 
effects  are  included,  so  that  the  sandwich  analysis  is  only 
appropriate  for  stiff  cores.)  Discrete,  eccentric  rings  and 
stringers  may  be  specified. 

Edge  loads  and  lateral  loads  may  be  specified  by  up  to 
tenth  order  polynomials.  Point  loads,  point  moments,  and  line 
moments  may  also  be  used,  as  well  as  point  and  line  spring 
supports.  In  dynamics,  the  effects  of  lumped  masses  may  be 
included. 

In  any  one  problem,  the  procedure  can  solve  for  natural 
frequencies  and  mode  shapes,  or  the  buckling  stress  resultants 
under  complicated  edge  load  distributions,  or  the  static  deflec¬ 
tions  (including  stresses,  strains,  and  margins  of  safety) 
under  lateral  and  edge  loads.  A  flexibility  matrix  at  specified 
control  points  may  be  calculated  on  any  type  problem. 
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INPUT  DATA 


The  program  uses  "free  field"  input  as  explained  in  the 
documentation  for  general  purpose  subroutine  CF619.  However, 
every  number  input  as  problem  data  is  considered  by  the  program 
to  be  a  real  number  (card  type  "6"  in  free  field).  Therefore, 
every  card  of  the  input  deck  should  have  a  "6"  in  column  1. 

It  should  be  noted  that  if  an  input  number  is  an  integer,  a 
decimal  point  is  not  necessary.  The  title  card  (Card  No.  1)  is 
not  read  in  the  free  f ield  mode  but  it  also  contains  a  "6"  in 
column  1. 

The  general  content  of  each  card  in  a  problem  deck  is  as 


follows : 

Co  lumn 

1 

The 

integer  "6" 

2  -66 

Input  data 

67  -  72 

The 

six-digit  job  number 

73 

The 

letter  "P" 

74  -  75 

The 

problem  number,  beginning  with  01 

76  -  79 

The 

card  sequence  number,  beginning  with  0001 

The  input  data  varies  according  to  the  problem  being  run. 

A  flow  chart  of  the  necessary  data  to  run  a  given  problem  is 
shown  in  Figure  59.  One  or  more  cards  may  be  required  for  each 
block  of  data,  but  each  block  must  begin  on  a  new  card. 

A  description  of  the  data  blocks  follows: 

Block  1.  Title 

Printed  with  the  output.  Any  Fortran  characters 
may  be  used.  (1  card  only.) 

Block  2.  IFLAGD,  IFLAGB,  IFLAGW,  IBCX,  IBCY,  NTX,  NTY,  ITX, 
ITY,  NMODES,  IMATL,  NPLYS ,  IREACT,  lOUT,  lEDGE, 

NPNX,  NPNY,  IPRTN,  NQTX,  NQTY,  IPRTQ,  NSTRNG,  NRING, 
NLMASS,  NPTLDS,  NPTMOM,  NLNMOM,  NPTSUP,  NLNSPR, 
INTPRT,  IFLEX  (31  integers) 


SMD7085 


Figure  59  Input  Data  Flow  Chart 
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IFLAGD  =  +1,  if  doing  a  dynamics  problem 
=  +0,  otherwise. 


IFLAGB 


IFLAGW 


+1,  if  1  buckling  eigenvalue  is  desired 
+2,  if  2  buckling  values  are  desired 
(as  for  shear  buckling) 

+3,  if  1  buckling  eigenvalue  and  an  imper¬ 
fection  sensitivity  analysis  are  desired 
+4,  if  2  buckling  eigenvalues  and  an  imper¬ 
fection  sensitivity  analysis  are  desired 
+€,  otherwise. 

+1,  if  doing  a  deflection  analysis  with 
lateral  pressure,  q 

+2,  if  doing  a  deflection  analysis  with  no 
lateral  pressure,  q 
+0,  otherwise. 


IBCX  is  a  tag  for  the  boundary  condition  in  the 
x-direction. 

=  +1,  for  clamped -simply  supported 

=  +2,  for  simply  supported-s imply  supported 

=  +3,  for  clamped- clamped 

=  +4,  for  clamped- free 

=  +5,  for  simply  supported-f ree 

=  +6,  for  free-free 

=  +7,  for  elastic  restraint.  (w,xx  0, 

^>xx  ~  ^x'^’xjx=a^ 

IBCY  is  a  tag  for  the  boundary  condition  in  the 
y-direction. 

=  +0,  for  a  full  cylinder 

=  +1,  for  clamped -simply  supported 

=  +2,  for  simply  supported-s imply  supported 

=  +3,  for  clamped- clamped 

=  +4,  for  clamped- free 

=  +5,  for  simply  supported-f ree 

=  +6,  for  free- free 

=  +7,  for  elastic  restraint  exactly  the  same 
as  that  in  the  x-direction 
=  +8,  other  elastic  restraint.  (w,yy  =OCyW,yjy=o 

w,yy  ~  PyW>y  jy  =  b) 
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NTX  =  Number  of  terms  in  the  assumed  series  for 

u,  V,  and  w,  in  the  x-direction.  1— NTX  ^10. 

NTY  =  Number  of  terms  in  the  assumed  series  for 

u,  V,  and  w,  in  the  y-direction.  I^NTYSIO. 

Note:  Although  the  upper  limit  on  each  of  the  above  two  numbers 
is  ten,  the  limit  on  the  size  of  the  matrices  generated 
using  them  is  150.  This  means  that  NTX  *  NTY  ^50. 

ITX  =  The  beginning  term  in  the  assumed  series  for 
u,  V,  and  w.  This  number  sets  the  range  of 
m  (axial  wave  number)  to  be  considered  in  the 
analysis,  such  that  ITX^M^ITX  +  NTX  -1.  The 
range  on  ITX  is  1^  ITX  ^20. 

ITY  =  The  beginning  term  in  the  assumed  series  for 
u,  V,  and  w.  This  number  sets  the  range  of 
n  (circumferential  wave  number)  to  be  considered 
in  the  analysis,  such  that  ITY^N  ^  ITY  +  NTY  -1. 
The  range  on  ITY  is  1^ ITY  <20. 

NMODES  =  Number  of  mode  shapes  to  be  calculated  in 

a  natural  frequency  problem.  1£NMODES^20. 

=  +0,  for  a  buckling  or  lateral  loads  problem. 

IMATL  =  +1,  for  an  isotropic  material 

=  +2,  for  a  laminate  with  constant  ply  properties 
=  +3,  for  a  laminate  with  variable  ply  properties 
=  +4,  for  a  sandwich  with  orthotropic  facings. 

NPLYS  =  Number  of  plys  in  the  laminate 

1^NPLYS<40.  For  an  isotropic  material, 

NPLYS  =  +1.  For  a  sandwich,  NPLYS  =  +3. 

IREACT  =  +1  if  the  reactions  (at  the  corners,  or  along 

the  edges  of  the  panel,  or  at  elastic  supports) 
are  desired. 

=  +0,  otherwise. 

lOUT  =  An  indicator  that  controls  how  much  output 
is  given  and  also  controls  whether  a  lamina 
strength  analysis  is  performed.  Each  of  the 
following  output  quantities  is  printed  at  625 
points  over  the  panel,  with  the  x  =  0  axis 
across  the  top  and  the  y  =  0  axis  down  the 
left  hand  side. 
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lEDGE 


NPNX 


NPNY 


IPRTN 


NQTX 


=  +1,  for  printing  the  normal  deflection, 
w,  only 

=  +2,  for  printing  w,  u,  and  v  (mid-surface 
deflections) 

=  +3,  for  printing  w,  u,  v,€.^,^y,Cxy  (mid¬ 
surface  strains)  and  Kx,  Ky,  Kxy  (curvatures) 
=  +4,  for  printing  w,  u,  v,Mx,  My,  Mxy 
(moment  resultants),  Qy»  (transverse 

shear  resultants),  and  CTx)  ^Ty ,  (Txy  (stresses, 
only  for  isotropic  or  sandwich) 

=  +5,  for  printing  w,  u,  v,Mx,  My,  Q^,  Qy, 


■O  17 

-xy5 


ix>  Qlcy 


K-y  >  ^xy »  ^ 

=  +6,  for  printing  w,  CT^,  Cf^,  (J^y 
=  +7,  for  printing  w,  ^2,  ^12  (strains  in 
lamina  axes  for  each  ply),  M.S.j^,  M.S.2, 
M.S.'|^2  (margins  of  safety  for  each  ply  accor¬ 
ding  to  the  maximum  strain  theory) 

=  +8,  for  printing  w,  CT^,  CTy,  (T^y,  G2, 

€12,  M.S.2,  M.S.12 

=  +9,  for  printing  w,  u,  v,  Mj^,  M 

•o  K^,  K  ,  Kxy,  CjJ, 

[.0.2,  M«S . • 


Qy >^x>  xy >  ‘■'■x » 

^ j  ^2’  ^12’  M.S.j^,  Mi 


xy  >  xx  > 

(Ty  >  ^xy  > 


=  +1,  if  edge  loads  are  to  be  input 
=  +2,  if  cylinder  end  loads  (force,  torque, 
bending  moment  are  to  be  input) 

=  +0,  otherwise. 


=  Number  of  terms  in  the  edge  loads  expressions 
in  the  x-direction.  I^NPNX^IO. 

=  +0,  if  lEDGE  =  +0  or  +2. 


=  Number  of  terms  in  the  edge  loads  expressions 
in  the  y-direction.  1^NPNX£10. 

=  +0,  if  lEDGE  =  +0  or  +2. 


=  +1,  if  the  distributions  of  the  edge  loads  are 
to  be  printed  at  quarter  points  of  the  panel. 

=  +0,  otherwise. 


=  Number  of  terms  in  the  distributed  lateral 

loads  expression  in  the  x-direction.  1^  NQTX £  10. 
=  +0,  if  IFLAGW  =  +0  or  +2. 
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NQTY  =  Number  of  terms  in  the  distributed  lateral  loads 
expression  in  the  y-direction.  1:^NQTY^10. 

=  +0,  if  IFLAGW  =  +0  or  +2. 

IPRTQ  =  +1,  if  the  distribution  of  the  lateral  loads  is 
to  be  printed  at  quarter  points  of  the  panel. 

=  +0,  otherwise. 

NSTRNG  =  Number  of  stringers.  O^NSTBNG  —  100.  (For 
equally-spaced  identical  stringers,  precede 
number  by  a  minus  sign.) 

NRING  =  Number  of  rings.  O^NRING^  50.  (For  equally- 
spaced  identical  rings,  precede  number  by  a 
minus  sign.) 

NLMASS  =  Number  of  lumped  masses.  O^NLMASS^SO. 

NPTLDS  “Number  of  concentrated  normal  loads. 

0<NPTLDS  <50. 

NPTMOM  =  Number  of  concentrated  point  moments. 
0<NPTMOM<50. 

NINMOM  =  Number  of  concentrated  line  moments . 

0<NLNMQM  ^50. 

NPTSUP  =  Number  of  point  spring  supports.  0^NPTSUP^50. 

NINSPR  =  Number  of  line  spring  supports.  0^NLNSPR^50. 

INTPRT  =  +1,  if  the  values  of  the  calculated  integrals, 
the  matrices  generated,  and  detailed  timing 
information  is  to  be  printed. 

=  +0,  otherwise.  (Usually,  INTPRT  =  +0). 

IFLEX  =  Number  of  points  for  which  influence 
coefficients  are  desired. 

Block  3.  AA,  [BB],  RR,  [MU] 

AA  =  Dimension  in  the  x-direction 

BB  =  Dimension  in  the  y-direction  (Note:  This  is 

not  input  for  a  full  cylinder.) 
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RR  =  Radius  of  panel. 

MU  =  Standard  deviation  of  panel  thickness. 

Block  4.  [ALFAX,  BETAX] ,  [ALFAY,  BETAY] 

ALFAX  =  The  constant  describing  the  elastic  restraint 
on  the  edge  x  =  0.  w,xx  “  (ALFAX)w,j^. 

BETAX  =  The  constant  describing  the  elastic  restraint 
on  the  edge  x  =  a.  w,xx  “  (-BETAX)w,x* 

ALFAY  =  The  constant  describing  the  elastic  restraint 
on  the  edge  y  =  0.  w,yy  =  (ALFAY)w,y. 

BETAY  =  The  constant  describing  the  elastic  restraint 
on  the  edge  y  =  b.  Wjyy  ~  (-BETAY)w,y. 

The  elastic  restraint  constants  are  only  input  as  needed, 
and  if  the  y-direction  quantities  are  identical  to  those  in  the 
x-direction,  only  ALFAX  and  BETAX  need  be  input.  All  of  these 
constants  are  input  as  positive  for  positive  restraint. 

Block  5.  E,  ,  T 

E  =  Young's  modulus,  psi 

■~L>  =  Poisson's  ratio,  dimensionless 

T  =  Panel  thickness,  in. 

Block  6.  EC  (1),  EC(2),  EC(3),  ET(1),  ET(2),  ET(3) 

EC(1)  =  Compressive  strain  allowable  in  the  1-direction 

in/ in. 

EC (2)  =  Compressive  strain  allowable  in  the  2-direction 

in/ in . 

EC (3)  =  Negative  shear  strain  allowable,  in/in. 

ET(1)  =  Tensile  strain  allowable  in  the  1-direction, 

in/ in. 

ET(2)  =  Tensile  strain  allowable  in  the  2-direction, 

in/ in. 
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ET(3)  =  Positive  shear  strain  allowable,  in/in. 

Block  7.  El,  E2,  H,  (0i,  i  =  1,2, . NPLYS) 

El  =  Modulus  in  the  0°  direction,  psi. 

E2  =  Modulus  in  the  90°  direction,  psi. 

G  =  In-plane  shear  modulus,  psi. 

"^2  =  Major  Poisson's  ratio,  dimensionless. 

H  =  Thickness  of  each  ply,  in. 

=  Orientation  of  the  i'""  ply,  starting  with  the 
bottom  or  inner  ply,  degrees. 

Block  8.  (El)i,  (E2)i,  Gi,  (T^2)i>  ^i*  [EC(l)i,  EC(2)i, 

EC(3)j^,  ET(l)i,  ET(2)i,  £1(3)^],  i  =  1, - -  NPLYS 

Elj^  =  Modulus  in  the  0°  direction  of  the  i*-*^  ply, psi 

E2i  =  Modulus  in  the  90°  direction  of  the  i^h  ply,  psi 

*  Shear  modulus  of  the  i^*^  ply»  psi 

(*^2)1  =  Major  Poisson's  ratio  of  the  i^h  ply, 
dimensionless 

Hi  =  Thickness  of  the  i^*^  ply»  in* 

©1  =  Orientation  of  the  i*-^  ply>  degrees. 

(The  following  allowables  are  input  only  if  a  strength  analysis 
is  being  performed,  I0UT^7.) 

EC (1)1  =  Compressive  strain  allowable  in  the  1-direction 
for  the  i^*^  ply>  in/in. 

EC(2)i  =  Compressive  strain  allowable  in  the  2-direction 
for  the  iih  ply,  in. /in. 

EC (3)1  =  Negative  shear  strain  allowable  in  the  1-2 
plane  for  the  i*^*^  piy>  in/in. 
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ET(1)^  =  Tensile  strain  allowable  in  the  1-direction 
for  the  i^h  ply,  in/in. 

ET(2)i  =  Tensile  strain  allowable  in  the  2-direction 
for  the  i^*^  ply,  in/in. 

ET(3)j^  =  Positive  shear  strain  allowable  in  the  1-2 
plane  for  the  i^h  ply,  in/in. 

Block  9.  El,  E2,  H 

El  =  Inner  (outer)  facing  modulus  in  the  0° 
direction,  psi. 

E2  =  Inner  (outer)  facing  modulus  in  the  90° 
direction,  psi. 

Inner  (outer)  facing  shear  modulus,  psi. 

Inner  (outer)  facing  major  Poisson's  ratio, 
dimensionless . 

H  =  Inner  (outer)  facing  thickness,  in. 

(If  a  strength  analysis  is  not  being  performed.  Block  9  is  now 
repeated  for  the  outer  facing  properties.  If  a  strength  analysis 
is  being  performed.  Blocks  10  and  11  for  the  inner  facing  are 
now  input,  then  Blocks  9,  10  and  11  are  input  for  the  outer  facing.) 

Block  10.  EC(1),  EC(2),  EC(3),  ET(1),  ET(2),  ET(3),  MCHK 

EC(1)  =  Inner  (outer)  facing  compressive  strain  allow¬ 

able  in  the  1-direction,  in/in. 

EC (2)  =  Inner  (outer)  facing  compressive  strain  allow¬ 

able  in  the  2-direction,  in/in. 

EC (3)  =  Inner  (outer)  facing  negative  shear  strain 

allowable  in  the  1-2  plane,  in/in. 

ET(1)  =  Inner  (outer)  facing  tensile  strain  allowable 

in  the  1-direction,  in/in. 

ET(2)  =  Inner  (outer)  facing  tensile  strain  allowable 

in  the  2-direction,  in/in. 


t)j_2 
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ET(3)  =  Inner  (outer)  facing  positive  shear  strain 

allowable  in  the  1-2  plane,  in/in. 

MCHK  =  Number  of  orientations  to  be  checked  in  the 

strength  analysis  of  the  inner  (outer)  facing. 
1^  MCHK  ^10. 

Block  11.  ANGCHK^,  i  =  1,  MCHK 

ANGCHKi®  Orientations  to  be  checked  in  the  strength 

analysis  of  the  inner  (outer)  facing,  degrees. 

Block  12.  He 

He  =  Core  thickness,  in. 

Block  13.  [YSTRNG],  YEAR,  ZBAR,  AS,XIYYS,  XIYZS ,  XIZZS ,  ES ,  GJS, 

RHOS 

YSTRNG  =  Distance  of  longitudinal  stiffener  from  y  =  0. 
For  variable  stiffener  spacing  only. 

YBAR  =  Location  of  stringer  centroid  in  the  y-direction 
with  respect  to  its  line  of  attachment  to  the 
shell,  in. 

ZBAR  =  Location  of  stringer  centroid  in  the  z-direction 
with  respect  to  the  middle  surface  of  the  shell 
at  the  line  of  attachment,  in. 

2 

AS  =  Stringer  cross-sectional  area,  in  . 

XIYYX  =  Moment  of  inertia  of  the  stringer  area  about 
the  mid-surface  y-  axis  at  the  line  of 
attachment,  in^. 

XIYZS  =  Product  of  inertia  of  the  stringer  area  about 
the  mid-surface  y-z  axis  at  the  line  of 
attachment,  in^. 

XIZZS  =  Moment  of  inertia  of  the  stringer  area  about 
the  z-axis  at  the  line  of  attachment,  in^. 

ES  =  Stringer  modulus  of  elasticity ,psi. 

GJS  *  Stringer  torsional  stiffness,  lb-in.  . 
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RHOS 


=  Average  density  of  stringer  material, 
lb-sec2/ in^. 

Block  13  is  repeated  'NSTRNG'  times,  unless  equally-spaced 
identical  stringers  were  specified. 

Block  14.  [XRING],  XBARR,  ZBARR,  AR,  XIXXR,  XIZZR,  ER,  GJR,  RHOR 

XRING  =  Distance  of  circumferential  stiffener  from 
X  =  0.  For  unequally  spaced  rings. 

XBARR  =  Location  of  ring  centroid  in  the  x-direction 
with  respect  to  its  line  of  attachment  to  the 
shell,  in. 

ZBARR  =  Location  of  ring  centroid  in  the  z-direction 
with  respect  to  the  middle  surface  of  the 
shell  at  the  line  of  attachment,  in. 

AR  =  Ring  cross-sectional  area,  in^. 

XIXXR  =  Moment  of  inertia  of  the  .ring  area  about  the 
mid-surface  x-axis  at  the  line  of  attachment, 
in  .^ . 

XIXZR  =  Product  of  inertia  of  the  ring  area  about  the 
mid-surface  x-z  axis  at  the  line  of  attach¬ 
ment,  in'^. 

XIZZR  =  Moment  of  inertia  of  the  ring  area  about  the 
z-axis  at  the  line  of  attachment,  in^. 

ER  =  Ring  modulus  of  elasticity,  psi. 

GJR  =  Ring  torsional  stiffness,  Ib-in^. 

RHOR  =  Average  density  of  ring  material,  Ib-sec^/in'^ . 

Block  14  is  repeated  'WRING'  time  unless  equally-spaced  identical 
rings  were  specified. 

Block  15.  DENSE 

DENSE  =  Average  material  density  of  the  shell  material, 
such  that  (DENSE)  (Vol.  of  shell)  =  (Mass  of 
shell),  lb-sec2/in^. 
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Block  16.  IX,  lY,  PMASS 

IX  =  Grid  coordinate  in  x-direction  at  which 
lumped  mass  is  located,  1^IX<25. 

lY  =  Grid  coordinate  in  y-direction  at  which 
lumped  mass  is  located,  1^IY^25. 

PMASS  =  Mass,  Ib-sec^/in. 

Block  16  is  repeated  'NIMASS '  times. 

Block  17.  PX(1,1),  PY(1,1),  PXY(1,1),  PX(2,1),  PY(2,1),  PXY(2,1), 
...PX(I,J),  PY(I,J),  PXY(I,J),  1=  1,2...NPNX,  J  =  1,2 
.  .  .NPNY 


The  applied  in-plane  stress  resultants  are  described  by  the 
relations 


NPMX  MPMV 

Nx(x,y)  =  £  Z  R,(x,j)  0:)  (-1) 

X=l  J-\ 


KlPWX  MfMY 


N, 


(x,y)  =  Z  Z  Py 


I 


X  = «  T=  J 


Note:  Tension  stress  resultant  are  taken  as  positive. 

TORQUE  =  Torque  applied  to  cylinder,  in-lb. 

BNDMOM  =  Bending  moment  applied  to  cylinder,  in-lb. 

Block  19.  Q(l,l),  Q(2,l),  Q(3,l),  ...Q(I,J),  1=1,  ...,  NQTX 
J  =  1,2...,  NQTY 


The  distributed  lateral  load  is  described  by  the  relation 

N(7rv  ,  I 

=  i  Z  Qa.3)  (i)  (ly 


1=1  0=) 


Note:  positive  loads  are  in  the  positive  z-direction. 
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Block  20.  IX,  lY,  PC 

IX  =  Grid  coordinate  in  x-direction, 1^ IX  £  25. 

lY  =  Grid  coordinate  in  y-direction,  l£lY^25. 

PC  =  Concentrated  load,  lb. 

Block  20  is  repeated  'NPTLDS'  times. 

Block  21.  IX,  lY,  ITAG,  FC 

IX  =  Grid  coordinate  in  x-direction,  1^IX^25. 

lY  =  Grid  coordinate  in  the  y-direction,  1^IY£25. 

ITAG  =  +1,  if  the  moment  is  about  the  x-axis  in  a 
vector  sense  (right-hand  rule) 

=  +2,  if  the  moment  is  about  the  y-axis. 

FC  =  Moment,  in -lb. 

Block  21  is  repeated  'NPTMOM'  times. 

Block  22.  ITAG,  IDIST,  PLMOM 

ITAG  =  +1,  if  the  line  moment  is  parallel  to  the  x-axis. 

=  +2,  if  the  line  moment  is  parallel  to  the  y-axis. 

IDIST  =  Number  of  grid  lines  away  from  the  x  =  o  or 
y  =  o  axis.  1^  IDIST i.25. 

PLMOM  =  Line  moment  per  unit  of  length,  in-lb/in. 

Block  22  is  repeated  'NLNMQM’  times. 

Block  23.  IX,  lY,  PKC 

IX  =  Grid  coordinate  in  x-direction.  1£IX^25. 

lY  =  Grid  coordinate  in  y-direction.  1£IY^25. 

PKC  =  Spring  constant,  Ib/in. 

Block  23  is  repeated  'NPTSUP'  times. 
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Block  24.  ITAG,  IDIST,PLINE 


=  +1,  if  the  line  spring  is  parallel  to  the  x-axis. 

=  +2,  if  the  line  spring  is  parallel  to  the  y-axis. 

=  Number  of  grid  lines  away  from  the  x=o  or  y=o 

axis.  1^IDIST^25. 

2 

=  Spring  constant  per  unit  length,  Ib/in  . 

Block  24  is  repeated  'NIl^SPR'  times. 

Block  25.  XP(I),  YP(I),  1=1,  IFLEX 

XP(I)  =  X-coordinate  (in  %)  of  flexibility  matrix 
control  point. 

YP(I)  =  Y-coordinate  (in  %)  of  flexibility  matrix 
control  point. 

OUTPUT  DATA  DESCRIPTION 


ITAG 

IDIST 

PLINE 


Most  of  the  output  is  labeled  with  the  exception  of  the 
'CONTROBUTIONS  OF  THE  SERIES  TERMS'.  These  are  the  solution 
vectors  used  for  the  modal  analysis.  They  are  printed  in  the 
following  order: 


^111’  ^112’  ®113 - ’  ^ll(NTY)’  ^121’  ^122’ - -  ^12(NTY)» 

•••’  ^1(NTX)1’  ^1(NTX)2’ * • • ’  ^l(NTX)NTY)’  ^211’  ^212* 

^2 (NTX) (NTY) ’  ^311’  ^312*  ***’  ®3(NTX)(NTY) 


where 

u 

V 

w 


Ms  Mi. 

»W=Mt  K-Nfi, 


lA 
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Mi 

ITX. 

Mf 

= 

ITX 

+  NTX 

Ni 

= 

ITY. 

Nf 

= 

ITY 

+  NTY 

For  a  buckling  solution  only  the  sre  printed. 


RESTRICTIONS 


The  ranges  of  the  input  parameters  are  described  under 
INPUT  DATA. 

The  main  restriction  is  to  keep  in  mind  the  assumptions  of 
the  analysis,  particularly  the  small-deflection  assumption.  If 
the  deflections  found  in  a  lateral  loads  problem  are  greater  than 
the  panel  thickness,  the  results  are  questionable. 

If  a  solution  mode  shape  contains  large  contributions  from 
the  highest  modal  shape  input,  the  solution  is  questionable,  and 
the  analysis  should  be  rerun  using  the  highest  mode  shape  input 
as  the  initial  term  in  the  new  analysis.  Since  the  high-order 
modes  are  not  sensitive  to  boundary  conditions,  the  restriction 
to  simply-supported  or  full  cylinder  boundary  conditions  will 
not  make  much  difference  in  the  results. 

ESTIMATED  RUNNING  TIME 


The  run  times  may  vary  considerably  depending  solely  on  the 
size  of  the  matrix  to  be  inverted  and  solved  for  eigenvalues. 

A  meaningful  buckling  problem  may  be  solved  in  10  to  20  seconds, 
while  a  large  vibration  problem  with  many  mode  shapes  desired  may 
run  up  to  10  minutes.  For  the  static  deflection  and  buckling 
problem,  an  estimate  of  the  run  time  can  be  obtained  as 

^  0.0666  (NIX*NTY) 

The  vibration  problems  normally  run  up  to  twice  as  long  as  the 
corresponding  buckling  problems,  and  can  run  longer  when  many 
modes  are  desired. 
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APPENDIX  III 


SAMPLE  PROBLEMS 
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APPENDIX  IV 


PROGRAM  LISTINGS 


147,148 


C  CONTROL  PROGRAM  FOR  THE  ANALYSIS  OF  ANISOTROPIC  CURVED  PANELS.  SSdAOOO 

C  SS8AU01 

CALL  GSTART  (• SS8' , IDIOT)  SS8A002 

1  CALL  READ  SS8A003 

CALL  TABLE  SS8A004 

CALL  ASEMBL  SS8A005 

CALL  SOLVE  SS8A006 

CALL  PRINT  SS8A007 

GO  TO  1  SS8A008 

END  SSaAOOY 


CC  =  00010 


149 


c 

c 

c  ** 
c 


SUBROUTINE  READ 

SS3B000 

SS8B001 

THIS  SUBROUTINE  READS  ALL 

THE  NECESSARY  INPUT  DATA,  MAKES  DATA 

SS8B002 

CHECKSt  AND  WRITES  PRELIMINARY  DATA. 

ssaBOOi 

SS86004 

DIMENSION 

1  YSTRNG(IOO), 

YBARSdOO),  ZBARSdOO), 

ASCIOO) 

,SS8B005 

1 

XIYYSI 100) , 

XIYZSdOO),  XIZZSdOO), 

ESdOO) 

, SS8BU06 

2 

GJS( 100) , 

RHOSIIOO) 

,  PAXSdOO), 

5388007 

3 

XRINGS(50), 

XBARR (50) 

,  ZBARR(50), 

AR(50) , 

SS8B00B 

4 

XIXXR(50), 

XIXZR(50) 

,  XIZZR(50), 

ER(50) , 

SS8BU09 

5 

GJRI 50)» 

RHORI 50) , 

PAXR(50)  , 

SS8B010 

8 

PMASS(50), 

IPWW( 50) , 

IPWY(50)  , 

SSBBOli 

9 

PX( 10,10), 

PY( 10,10) 

,  PXYd0,10), 

SS38012 

C 

PC(50), 

IPXXI50), 

IPYYC50), 

SS8B0i3 

0 

FC(50), 

IFXX(50), 

IFYY(50), 

SS8B0i4 

E 

ITAGCM(50) , 

Q  (10,10) 

, 

SS3B015 

F 

PLM0M(50), 

ITAGLM(50),  I0ISLM(50), 

SS8B016 

G 

PKC(50), 

IGSPRX(50 

),  IGSPRY(50), 

SS8B017 

H 

PLINEISO), 

IDISLS(50 

),  ITAGLS(50) 

SS3B018 

DIMENSION 

1  ITIME(12), 

TIME(50) 

SSBBUiV 

DIMENSION 

1  AMATO, 3), 

BMAT(3,3) 

,  DMAT(3,3), 

HI40)  , 

5588020 

1 

THETA(40), 

El(40)  , 

E2(40), 

G(40), 

SS8B02i 

2 

XNU12(40) 

SS38022 

DIMENSION 

ECO, 40), 

ETO,40) , 

ANGCK(3,10), 

MCHK (3) 

SS8B02J 

DIMENSION 

V( 2,10), 

PRTNX(5,5 

),  PRTNY{5,5), 

SS8B024 

1 

PRTNXY(5,5) , 

PRTQ(5,5) 

SS8B025 

DIMENSION 

A1  0,3) , 

A(3,3) 

SS86026 

COMMON 

U(50,50) 

SS86027 

COMMON  / 

CHECKS  /  lERROR 

SS8B028 

COMMON  / 

CNTROL  /  IFLAGD, 

IFLAGB, 

IFLAGW,  IBCX, 

IBCY, 

SS88G29 

1 

IMATL,  lEOGE,  IREACT,  lOUT,  IPRTN, 

SS8B030 

2 

IPRTQ,  lELAST,  INTPRT,  IKOF,  IFLEX 

SS38031 

COMMON  / 

NUMBER  /  NPLYS, 

NTUX, 

NTVX,  NTWX, 

NTUY, 

SSBB032 

1 

NTVY, 

NTWY, 

NMODES,  NSTHNG, 

NRING, 

SSBBOii 

2 

NPNX, 

NPNY, 

NQTXf NQTYfNPTLOS, 

NPTMOM, 

SS3B034 

3 

NLNMOM, 

NLMASS, 

NPTSUPf 

NLNSPR, 

5583035 

4 

MATSIZf 

MUVSIZ, 

MWSIZ,  ITXt 

ITY 

SSB8036 

COMMON  / 

GEOM  /  AA» 

BB, 

RR,  ALFAX, 

ALFAY, 

SS8BU37 

1 

BETAX,  BETAY,  MU 

SS86038 

COMMON  / 

$TIME  /  TIME, 

ITIME 

SS8B039 

COMMON  / 

ABO  /  AMAT, 

BMAT, 

DMAT,  RHAB, 

THETA, 

SS8B040 

1 

H, 

El, 

E2,  G, 

XNU12, 

SSBB04i 

2 

EC, 

ET, 

ANGCKt  MCHK 

SS38042 

COMMON  / 

PARAM  /  YBARS, 

ZBARS, 

AS,  XIYYS, 

XIYZS, 

SS8B043 

1 

XIZZS, 

ES, 

GJS,  RHOS, 

PAXS, 

5588044 

3 

XBARR, 

ZBARR, 

AR,  XIXXR, 

XIXZR, 

SS8B045 

4 

XIZZR, 

ER, 

GJR,  RHGR, 

PAXR, 

5588046 

6 

PMASS, 

IPWW, 

IPWY,  PX, 

PY, 

SS8B047 

7 

PXY, 

PC, 

IPXX,  IPYY, 

FC, 

SS88048 

8 

IFXX, 

IFYY, 

ITAGCM,  Q  , 

PLMOM, 

SS8B049 

9 

ITAGLM, 

IDISLM, 

PKC,  IGSPRX, 

IGSPRY, 

SS88050 

A 

PLINE, 

lOISLS, 

ITAGLS 

5588051 

COMMON  / 

STFVAL  /  ESVIlO.lOO),  ESW(10,100),  ESDWdO, 

100) , 

5S8B052 

1 

ERU110,50),  EKW(10,50),  EROWdO, 

50) , 

SS8B053 

2 

YSTRNG, 

XRINGS 

5588054 

COMMON  / 

FLEXBL  / 

XP(50) , 

YP(50) 

SS8B055 
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EQUIVALENCE 


DATA  XOIR 
DATA  KIN  / 


(  UIDfPRTNXd)  )t  I  U{26), 
PRTNXYd)  It  (  U(76),PRTQ(1 


PRTNY(l)  }«  (  U(51), 

)  (  UdODtVd)  ) 


YDIR 

KOUT 


•Y*  / 
•OUT* 


1  CALL  PROS 

CALL  STATUS  (ITIME) 
TIMEd)  =  .01*IT1ME(8) 
■  READ  AND  WRITE  TITLE 
READ  (5,2) 

2  FORMAT  dX,65H 

I  ) 

WRITE  (6,2) 

CALL  FREEFD 
5  FORMAT  dX) 

READ  (5,5)  XFLAGD,  XFL 


L  XTX  , 

I  XREACT, 

}  XQTX  , 

,  XPTMOM, 

CONVERT  FROM  REAL 
INTPRT  =  XNTPRT  + 
IFLAGD  =  XFLAGD  + 
IFLAGB  =  XFLAGB  + 
IKDF  =  0 

IF  (  IFLAGB  -  2  ) 
IKDF  =  I 


XFLAGB, 
XTY  , 
XOUT  , 
XQTY  , 
XLNMOM, 


XFLAGW, 
XMOOES, 
XEDGE  , 
XPRTQ  , 
XPTSUP, 


XBCX 

XMATL 

XPNX 

XSTRNG 

XLNSPR 


,  XBCY 
,  XPLYS 
,  XPNY 
,  XRING 


XPRTN 


SS8B056 

SSaii057 

SSb3058 

SS8B059 

SS8B060 

SS8B061 

SS8a062 

SS8B063 

SS8B064 

SS88065 

SS8806b 

SSd6067 

5588068 

SSB806V 

5S8B070 

SS88071 

SS8B072 

,5588078 

5588074 

SS880/6 


XNTPRT,  XFLEX 


XLMASS,  XPTLD5, 5588076 


INTEGER 


IFLAGB 

= 

IFLAGB 

- 

2 

4  CONTINUE 

IFLAGW 

= 

XFLAGW 

•  1 

IBCX 

XBCX 

4* 

.1 

IBCY 

XBCY 

+ 

•  1 

IMATL 

XMATL 

«1 

lEOGE 

XEDGE 

+ 

.1 

IREACT 

XREACT 

4- 

•  1 

lOUT 

XOUT 

4- 

.1 

IPRTN 

= 

XPRTN 

4- 

•  1 

IPRTQ 

=r 

XPRTQ 

+ 

.1 

NPLYS 

XPLYS 

4^ 

.1 

NTUX 

= 

XTUX 

4“ 

.1 

NTVX 

NTUX 

NTWX 

= 

NTUX 

NTUY 

XTUY 

4* 

•  1 

NTVY 

NTUY 

NTWY 

= 

NTUY 

ITX 

= 

XTX 

4- 

•  1 

ITY 

3= 

XTY 

4* 

.1 

NMODES 

= 

XMOOES 

4- 

.1 

lEQS  = 

0 

lEQR  = 

0 

IF  (  XSTRNG  .LT.  0.  ) 
XSTRNG  =  ABS  (  XSTRNG 
IF  (  XRING  .LT.  0.  ) 
XRING  =  ABS  (  XRING  ) 


lEQS  = 


lEQR  = 


5588077 

SS3B078 

5588079 

SS8B080 

S58BU8L 

SS88082 

5588083 

5583084 

5588086 

SS8B086 

5586087 

5538088 

5S8B089 

5588090 

S58B091 

SS86092 

5586093 

5588094 

SS8B096 

5588096 

S58B097 

5588098 

5588099 

SS8B100 

5S8B1Q1 

5588102 

5588103 

SS8B104 

SS8B105 

5588106 

SS8B107 

5S8B108 

SS88109 

SS83L10 

5538111 
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c  ** 


NSTRNG  =  XSTRNG  +  .1 

SS3B112 

NRING  =  XRING  ♦  .1 

SS8B113 

NPNX 

=  XPNX  +  .1 

SS8Bil4 

NPNY 

=  XPNY  +  .1 

SS8B115 

NQTX 

=  XQTX  +  .1 

SS8B116 

NQTY 

=  XQTY  ,1 

SS8B117 

NPTLDS  =  XPTLDS  +  .1 

SS8B118 

NPTMOM  =  XPTMOM  +  . 1 

SS8B119 

NLNMOM  =  XLNMOM  +  ,1 

SS88120 

NL'^ASS  =  XLMASS  +  .1 

SS8B121 

NPTSUP  =  XPTSUP  +  .1 

SS8B122 

NLNSPR  =  XLNSPR  +  .1 

SS88123 

IFLEX  =  XFLEX  +  .1 

SS8B124 

TEST 

THE  VALUES  READ  IN 

SS88125 

lERROR  =  0 

SS86126 

IF 

( 

IFLAGD 

.LT.  0  .OR. 

IFLAGD  .GT. 

1 

CALL 

CHECK 

I 

IFLAGD*  ) 

SS8B127 

IF 

( 

IFLAGB 

.LT.  0  .OR. 

IFLAGB  .GT. 

2 

CALL 

CHECK 

IFLAGB* ) 

SSaB128 

IF 

( 

IFLAGW 

.LT.  0  .OR. 

IFLAGW  .GT. 

2 

CALL 

CHECK 

IFLAGW*  ) 

SS88129 

IF 

t 

I8CX 

•LT«  1  aOR* 

IBCX  .GT. 

7 

CALL 

CHECK 

IBCX  *  1 

SS8B130 

IF 

( 

I8CY 

.LT*  0  .OR. 

IBCY  ,GT. 

8 

CALL 

CHECK 

IBCY  *  ) 

SS8B131 

IF 

< 

IMATL 

.LT.  1  .OR. 

IMATL  .GT. 

4 

CALL 

CHECK 

IMATL  *1 

SS8B132 

IF 

( 

lEOGE 

.LT.  0  .OR. 

lEDGE  .GT. 

2 

CALL 

CHECK 

lEDGE  *) 

SS88133 

IF 

{ 

lOUT 

.LT.  1  .OR. 

lOUT  .GT. 

9 

CALL 

CHECK 

lOUT  *  » 

SS8B134 

IF 

( 

IPRTN 

.LT.  0  .OR. 

IPRTN  .GT. 

1 

CALL 

CHECK 

IPRTN  *J 

SS8B135 

IF 

( 

IPRTQ 

.LT.  0  .OR. 

IPRTQ  .GT. 

1 

CALL 

CHECK 

IPRTQ  * ) 

SS8B136 

IF 

{ 

NPLYS 

.L  T  .  1  .  OR  . 

NPLYS  .GT. 

40 

CALL 

CHECK 

NPLYS  *) 

SS8B137 

IF 

( 

NTUX 

•LT.  1  .OR. 

NTUX  .GT. 

10 

CALL 

CHECK 

NTUX  *  1 

SS8B138 

IF 

( 

NTVX 

.LT.  1  .OR. 

NTVX  .GT. 

10 

CALL 

CHECK 

NTVX  *) 

SS8B139 

IF 

( 

NTWX 

•LT.  1  .OR. 

NTWX  .GT. 

10 

CALL 

CHECK 

NTWX  •» 

SS8B140 

IF 

( 

NTUY 

.LT.  1  .OR. 

NTUY  .GT. 

10 

CALL 

CHECK 

NTUY  •  » 

SS8B141 

IF 

{ 

NTVY 

.LT.  1  .OR. 

NTVY  .GT. 

10 

CALL 

CHECK 

NTVY  *» 

SS8B142 

IF 

( 

NTWY 

.LT.  1  .OR. 

NTWY  .GT. 

10 

CALL 

CHECK 

NT  WY  *  » 

SS8B143 

IF 

( 

ITX 

.LT.  0  .OR. 

ITX  .GT. 

20 

CALL 

CHECK 

ITX  *  ) 

SS8B144 

IF 

( 

ITY 

.LT.  0  .OR. 

ITY  .GT. 

20 

CALL 

CHECK 

ITY  *  ) 

SS8B145 

IF 

( 

NSTRNG 

.LT.  0  .OR. 

NSTRNG  .GT. 

100 

CALL 

CHECK 

NSTRNG*  I 

SS8B146 

IF 

( 

NRING 

.LT.  0  .OR. 

NRING  .GT. 

50 

CALL 

CHECK 

NRING  *) 

SS88147 

IF 

i 

NPNX 

.LT.  0  .OR. 

NPNX  .GT. 

10 

CALL 

CHECK 

NPNX  *) 

SS8B148 

IF 

i 

NPNY 

.LT.  0  .OR. 

NPNY  .GT. 

10 

CALL 

CHECK 

NPNY  *  ) 

SS8B149 

IF 

1 

NQTX 

.LT.  0  .OR. 

NQTX  .GT. 

10 

CALL 

CHECK 

NQTX  •  ) 

SS88150 

IF 

i 

NQTY 

•LT.  0  .OR. 

NQTY  .GT. 

10 

CALL 

CHECK 

NQTY  *  ) 

SS8B151 

IF 

( 

NPTLOS 

.LT.  0  .OR. 

NPTLDS  .GT. 

50 

CALL 

CHECK 

NPTLDS*  ) 

SS8B152 

IF 

( 

NPTMOM 

.LT.  0  .OR. 

NPTMOM  .GT. 

50 

CALL 

CHECK 

NPTMOM* ) 

SS88153 

IF 

( 

NLNMOM 

.LT.  0  .OR. 

NLNMOM  .GT. 

50 

CALL 

CHECK 

NLNMOM* ) 

SS8B154 

IF 

( 

NLMASS 

.LT.  0  .OR. 

NLMASS  .GT. 

50 

CALL 

CHECK 

NLMASS* ) 

SS8B155 

IF 

( 

NPTSUP 

.LT.  0  .OR. 

NPTSUP  .GT. 

50 

CALL 

CHECK 

NPTSUP* ) 

SS8B156 

IF 

{ 

NLNSPR 

.LT.  0  .OR. 

NLNSPR  .GT. 

50 

CALL 

CHECK 

NLNSPR* ) 

SS3B157 

IF 

( 

IFLEX 

•LT.  0  .OR. 

IFLEX  .GT. 

50 

CALL 

CHECK 

IFLEX  *) 

SS88158 

MATSIZ  =  NTUX*NTUY  *  NTVX*NTVY  +  NTWX*NTWY 

SS8B159 

IF 

( 

MATSIZ 

.LT.  1  .OR. 

MATSIZ  .GT. 
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) 

CALL 

CHECK 

MATSIZ* ) 

SS8B16Q 

IF 

( 

NMODES 

. L  T .  0  . OR . 

NMODES  .GT.I 

'lATSIZJCALL 

CHECK 

NMODES* ) 

SS3B161 

IF 

( 

IBCX  .EQ.  6  .AND. 

ITX  .EQ.  1  ) 

CALL 

CHECK 

( 'ITX 

•» 

SS88162 

IF 

( 

IBCY  .EQ.  6  .AND. 

ITY  .EQ.  1  ) 

CALL 

CHECK 

CITY 

•I 

SS8B163 

IF 

( 

lERRQR 

.EQ.  i  )  GO 

TO  99999 

SSaB164 

MWSIZ 

=  NTWX^NTWY 

SS8dl63 

MUVSIZ  =  MATSIZ  -  MWSIZ 

SS8B166 

MU 

= 

0* 

SS8B167 
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IF 

( 

IBCY  .EQ. 

0 

) 

GO  TO 

8 

SS88168 

IF 

1 

IKDF  .EQ. 

0 

) 

READ 

(5,5) 

AA, 

BB, 

RR 

SSdB169 

IF 

( 

IKDF  .EQ. 

1 

» 

READ 

(5,5) 

AA, 

BB, 

RR,  MU 

SS8B170 

GO 

TO 

9 

SS3B171 

IF 

( 

IKDF  .EQ. 

0 

) 

READ 

(5,5) 

A  A  , 

RR 

SS8B172 

IF 

( 

IKDF  .EQ. 

1 

» 

READ 

(5,5) 

AA, 

RR, 

MU 

SSaBl73 

BB 

z= 

6.2831853 

RR 

SSa8l74 

GO  TO  20 

BOUNDARY  CONDITIONS  OF  THE  COMPLETE  CYLINDER  AT  X=0 


9  CONTINUE 

C  THE  BOUNDARY  CONDITIONS  ARE  PRINTED 

II  =  IBCX 
IF  (IBCY.NE.O) 

WRITE  (6,10) 

10  FORMAT  (»OTHE 
lAND  X=A  ARE* ) 

GO  TO  40 
WRITE  (6,150) 

IBCTAG  =  +1 
GO  TO  40 
1 1=  IBCY 
WRITE  (6,160) 

IBCTAG  =  -1 
IF  (  II-2  )  70,80,50 

IF  (  II-4  )  90,100,60 

IF  (  II-6  )  110,120,130 

WRITE  (6,170) 

GO  TO  140 
WRITE  (6,180) 

GO  TO  140 
WRITE  (6,190) 

GO  TO  140 
WRITE  (6,200) 

GO  TO  140 
WRITE  (6,210) 

GO  TO  140 
WRITE  (6,220) 

GO  TO  140 
WRITE  (6,230) 


20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 


250 

260 


IF  (  IBCTAG. GT.O.ANO. IBCY.NE.O)  GO  TO  30 


FORMAT! 
FORMAT ( 
FORMAT! 
FORMAT! 
FORMAT! 
FORMAT! 
FORMAT! 
FORMAT! 
FORMAT! 


AND 

AND 


X=A 

Y  =  B 


OTHE  BOUNDARY  CONDITIONS  AT  X^O 
OTHE  BOUNDARY  CONDITIONS  AT  Y=0 
CLAMPED,  SIMPLE*) 

SIMPLE,  SIMPLE*) 

CLAMPED,  CLAMPED* ) 

CLAMPED,  FREE*) 

SIMPLE,  FREE*) 

FREE,  FREE*) 

ELASTIC  RESTRAINT* ) 

WRITE  (6,240)  NTUX, ITX,NTUY , I TY,MATSI Z , MATS  I Z 
FORMAT  {•OTHERE  ARE*  ,13,*  MODES  IN  THE  X  DIRECTION, 

*/*  THERE  ARE*, 13,*  MODES  IN  THE  Y 
=*,I3,*  .*  /  *OTHE  STIFFNESS  MATRIX  SIZE  IS*  14,*  BY*I4) 
IF  ( IFLAGD.NE.O)  WRITE  (6,250) 

FORMAT!  ‘OA  DYNAMIC  SOLUTION  WILL  BE  SOUGHT*) 

IF  ( IFLAGB.NE.O)  WRITE  (6,260) 

FORMAT!  *0A  STABILITY  SOLUTION  WILL  BE  SOUGHT*) 

IF  (IFLAGW.NE.O)  WRITE  (6,270) 


SS8flI/5 
SS88I/6 
SSd8177 
SSdQ17d 
SS86179 

ssaaiBO 

SS3B181 
SS3B182 
SSaBi83 

ssaBia4 
SS8B185 
SS86ia6 
SS88137 
ssaBiaa 
SS3BI89 
SS8B190 
SS8Bi9i 
SSaBi92 
SS3B193 
SSaB194 
SS8ai95 
SS88196 
ssa3197 

SS8B198 
SS8B199 
SS8B200 

ssaazoi 

SS3B202 
SS3B203 
SS8B204 
SS88205 
SS  38206 
SS88207 
SS3B208 
SS88209 
SS8B210 
SS8B2il 
SS8B2i2 
SS8B213 
SS88214 
SS8B2i5 
STARTING  WITHSS8B216 
DIRECTION,  STARTINGSS88217 


ARE* ) 
ARE*) 


SSB8213 

SS8B219 

SS8B220 

SS8B221 

SS3B222 

SS88223 
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270  FORMAT! 'OA  SOLUTION  UNDER  LATERAL  LOADS  WILL  BE  SOUGHT*) 
WRITE  (6,280)  AA,  BB,  RR,  MU 

280  FORMAT  { • OA  =*F20.5/'0B  =*F20.5/'0R  =*F20.5/*0MU  =*F19.5) 
ELASTIC  RESTRAINT 
lELAST  =  1 
ALFAX  =  0, 

BETAX  =  0. 

ALFAY  =  0. 

BETAY  =  0, 

IF  (  I6CX.EQ.7. AND.IBCY.lt. 7  )  GO  TO  290 

IF  {  IBCX.EQ.7.AND.IBCY.EQ.7  )  GO  TO  300 

IF  (  IBCX.NE.7.AN0.IBCY.EQ.8  )  GO  TO  310 

IF  (  IBCX.EQ.7. AND. IBCY.EQ.8  )  GO  TO  320 

GO  TO  330 
290  lELAST  =  2 

READ  (5,5)  ALFAX, BETAX 
GO  TO  330 
300  lELAST  =  3 

READ  (5,5)  ALFAX, BETAX 
ALFAY  =  ALFAX 
BETAY  =  BETAX 
GO  TO  330 
310  lELAST  =  4 

READ  (5,5)  ALFAY, BETAY 
GO  TO  330 
320  lELAST  =  5 

READ  (5,5)  ALFAX, BETAX, ALFAY, BETAY 
330  CONTINUE 

IF  (  lELAST. EQ.l)  GO  TO  350 
WRITE  (6,340)  ALFAX, BETAX, ALFAY, BETAY 
340  FORMAT  COTHE  ELASTIC  RESTRAINT  QUANTITIES  ARE  —  •  /  •  Al 
1  E16.8  /  '  BETAX  =  •  E16.8  /  '  ALFAY  =  *  E16.8  /  •  BETAY  = 


ALFAY, BETAY 


ALFAX, BETAX, ALFAY, BETAY 


/  •  ALFAX  = 
BETAY  =  '£16 


350  CONTINUE 

**  READ  IN  NECESSARY  MATERIAL  PROPERTIES  THROUGH  STATEMENT 
DO  360  1=1,3 
DO  360  J=l,3 
AMAT( I, J 1=0. 

BMAT( I,J)=0. 

DMAT( I, J)=0. 

360  CONTINUE 

IF  (  IMATL  .  EQ  .  1  )  GO  TO  370 

IF  (  IMATL  .  EQ  .  2  )  GO  TO  390 

IF  (  IMATL  .  EQ  .  3  )  GO  TO  450 

**  SANDWICH 

DO  361  J=l,3,2 

READ  (5,5)  EKJ),  E2(J),  G(J),  XNU12(J),  H(J 
THETA(J)  =  0. 

IF  (  lOUT  .LT.  7  )  GO  TO  361 
READ  (5,5)  (EC( I, J) ,1=1,3),  I ET ( I , J ) , I =1 ,3) , 

MCHK(J)  =  XCHK  +  .1 
NCHK  =  MCHK(J) 

IF  (  NCHK  .LT.  I  .OR. NCHK  ,GT.  10  )  CALL  CHI 
IF  (  lERROR  .EQ.  1  )  GO  TO  99999 
REAf)(5,5)  (  ANGCK(J,I),  1=1, NCHK  ) 

361  CONTINUE 
READ  (5,5)  H(2) 


E2(J),  GIJ),  XNU12(J) 


XCHK 


CALL  CHECK 


MCHK 


SS8B224 
SS8B225 
SS8B226 
SS8B227 
SS8B228 
SS38229 
SS8B230 
SS8B231 
SS3B232 
SS8B233 
SS88234 
SS38235 
SS3B236 
SS8B2J7 
SS3B233 
SS8B239 
SS8B240 
SS3B241 
SS38242 
SS8B243 
SS3B244 
SS3B245 
SS88246 
SSB8247 
5583243 
SS8B249 
SS83250 
SS8B251 
SS88252 
SS8B253 
•  SS88254 
,8)SS3B255 
SS8B256 
SS8B257 
SS8B25a 
SS88259 
SS8B260 
SS8B261 
SS8B262 
SS3B263 
SS3B264 
SS8B265 
SS8B266 
SS88267 
SS3B268 
SS88269 
SS8B270 
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SS88274 
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SS 88278 
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El(2)  =  1. 

E2(2)  =  1. 

G(2)  =  1. 

XNU12(2)  =  .25 
THETA(2>  =  0. 

DO  362  J=l,3,2 
NCHK  =  MCHK(J) 

IF  {  J.EQ.l  )  K=KIN 
IF  (  J.EQ.3  )  K=KOUT 

IF  (  lOUT  .LT.  7  )  WRITE(6,366)  K , E 1 ( J) t E2 ( J ) ,G ( J » , XNU12 ( J ) ,H IJ ) 
366  FORMAT  (/'OFOR  THE  'tAB.'ER  FACING  OF  THE  SANDWICH,  El  =•  ,E14.6 
1,*,  E2  =*,E14.6,',  G  =',E14.6,',  NU12  =SF7.3,',  H  =',F8.3) 

IF  (  lOUT  .GE.  7  ) 

IWRITE  (6,363)  K,  EKJ),  E2(J),  GIJ),  XNU12(J),  H(J), 


(  EC(I,J),  1  =  1,3)  ,  (  ETd.J),  1=1,3), 

(  ANGCK( J,  I) ,  1=1, NCHK  ) 

(/'OFOR  THE  •,A3,'ER  FACING  OF  THE  SANDWICH,  El  =', 
E14.6,',  E2  =',E14.6,',  G  =',E14.6,',  NU12  =',F7.3, 
',  H  =• ,F8.3//9X, 'THE  COMPRESSION  ALLOWABLES 
DIRECTIONS  ARE',3E15.6,  •  IN./ IN. ' //9X , 

•THE  TENSION  ALLOWABLES  IN  THE  1,  2,  AND 

•  IN, /IN. •//9X, 'THE  ORIENTATIONS 


363  FORMAT 
1 
2 

3ANO  12 

4 

5  ARE' ,3E15.6, 

6  ARE',10F8.2) 

362  CONTINUE 

WRITE  (6,364) 

364  FORMAT  I • OTHE 
T  =  H(l)  +  H(2) 
WRITE  (6,365)  T 
FORMAT  COTHE  TOTAL 


H(2) 

CORE  THICKNESS 
+  H(3) 


IS',F9.3,'  IN.') 


365 

370 


SANDWICH  THICKNESS  IS',F9.3,'  IN.') 


(ET(I,l)  ,1  =  1,3) 


380 


381 


SS8B280 
SS8B2dl 
SS88282 
SS88283 
SS8B284 
SS88235 
8583286 
SS8B287 
SSdB238 
SS8B289 
SS88290 
SS38291 
SS3B292 
5586293 
SS88294 
SS83295 
SS88290 
SS8B297 
SS8B293 
SS88299 
DIRECTIQNSSS8B300 
BE  CHECKEDSS8B301 
SS8B302 
SS8B303 
SS8B304 
SS8B305 
5S8B306 
5583307 
5588308 
SS8B309 
SS8B310 
SS883il 
SS8B312 
SS88313 
SS88314 
SS8B3i5 
SS8B316 
DIRSS8B317 


IN  THE  I,  2, 


12 

TO 


GO  TO  410 

ISOTROPIC  -  READ  E,  NU,  AND  T 

READ  (5,5)  El(l),  XNUI2(1),  T 
IF  (  lOUT  .GE.  7  )  READ(5,5)  ( EC ( I , 1 ) , 1=1 ,3 ) , 

WRITE  (6,380)  E 1 ( 1 ) , XNU I 2( 1 ) , T 

FORMAT  ('OFOR  THE  ISOTROPIC  MATERIAL,  E  ='E16.7,',  NU  ='F7.4, 

L  ',  T  =  •F9.4  ) 

IF  (  lOUT  .GE.  7  )WR1TE(6,381)(EC(I,1),I  =  1,3),  I E T (  1 , 1 ) , I  =  I , 3 ) 
FORMAT  I'O'.aX, 'THE  COMPRESSION  ALLOWABLES  IN  THE  1,  2,  AND  12 
lECTIONS  ARE* ,3E15.6, •  IN. /IN. '//gx, 'THE  TENSION  ALLOWABLES  IN  THE 
21,  2,  AND  12  DIRECTIONS  ARE ', 3E 15.6 , •  IN. /IN.') 

El( l)*T/(l.-XNU12(l)*XNU12Il) ) 

AMAT( 1, 1) 

XNU12(1)>!‘AMAT(1,1) 

AMAT( 2,1) 

El( l)*T/2./( l.+XNU12( 1) ) 

El( l)*T*T#T/12./( l.-XNU12(l)*XNU12(l) ) 

DMAT( 1,1) 

XNU12(1)*DMAT( 1,1) 

DMAT( 2, 1) 

El(  I)>t‘T*T*T/24./(  l.+XNU12(l)  ) 


C  ♦* 


AMAT( 1, 1) 

AMAT(2,2) 

AMAT(2, 1) 

AMAT( 1,2) 

AMAT(3,3) 

OMAT( I, 1) 

DMAT(2,2) 

DMAT(2,1) 

DMAT( 1,2) 

0MAT(3,3) 

E2(  1  )  =  Eld) 

H(l)  =  T 

GIl)  =  El(l)/2./(d-XNU12Il)) 

THETA(l)  =  0. 

GO  TO  410 

LAMINATE  WITH  CONSTANT  PLY  PROPERTIES 


SS88318 

SS8B319 

SS8B320 

SS8B321 

SS88322 

SS8B323 

5538324 

SS88325 

SS88326 

5538327 

SS3B328 

SS3B329 

SS8B330 

SS88331 

SS8B332 

SS88333 

SS8B334 

SS8B335 
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390  READ  (5,5)  EKDt  E2(l)t  Gll),  XNU12(1»,  H(l)f 
1  (  THETA(I),  I=1»NPLYS  ) 

IF  I  lOUT  .GE.  7  I  READ  (5f5I  IEC( 1 1 1 » » 1  =  1 »3 ) »  ( ET ( I f 1 1 1 1  =  1 » 3 » 
T  =  Hll)*NPLYS  .  . 

WRITE  (6»400)  NPLYS,  Elil),  E2Il)t  Gll),  XNU12(1),  HID, 

1  T,  (  THETA(I),  1=1, NPLYS  ) 

400  FORMAT  ( • OFOR  THE  •,I2,*  PLY  LAMI NATE •/ 'OEl  =•  E20.6  /•0E2  =' , 

1  E20.6  /  'OG  =•  E20.5  /  •0NU12  =  '  F6.4  /  'OHID  ='  F9.4/ 

2  ‘OT  =  •  F9.4  /  'OTHE  ORIENTATIONS  ARE'/I*  'FIO.4/)) 

IF  (  lOUT  .GE.  7  )  WRITE(6,381)  (ECI 1 , 1)  ,1  =  1,3) ,  I ET ( 1 , 1 ) , 1  =  1 , 3 ) 
DO  409  1=1, NPLYS 
EKI)  =  El(l) 

E2(I)  =  E2(l) 

G(  I )  =  G(  1) 

XNU12(I)  =  XNU12(1) 

HID  =  H(l) 

DO  409  J=l,3 
ECU, I)  =  EC(J,1) 

ETU,I)  =  ET(J,1) 

409  CONTINUE 

410  CALL  STIFF 

420  WRITE  16,430)  I ( AMATI I , J ) , J= 1 , 3 ) , ( 8MATI I , J ) , J=i ,3 ) , I =1 , 3) 

WRITE  (6,440)  ( ( BMAT( I , J ) , J=1 , 3) , ( DMATl I , J) , J=l ,3) , I=l ,3) 

430  FORMAT  (‘ITHE  CONSTITUTIVE  MATRIX  IS'/  /  /  (6E16.7)) 

440  FORMAT  (6E16.7) 

C  **  FIX  FOR  ELASTIC  RESTRAINT 

IF  (  lELAST  .EQ.  1  )  GO  TO  431 
ALFAX  =  ALFAX  ♦  AA  /  DMAT(1,1) 

BETAX  =  BETAX  ♦  AA  /  0MAT(1,1) 

ALFAY  =  ALFAY  *  BB  /  DMAT(2,2) 

BETAY  =  BETAY  ♦  BB  /  DMAT(2,2) 

431  CONTINUE 

IF  (  IMATL  .EQ.  1  )  GO  TO  470 
00  601  1=1,3 
DO  601  J=l,3 
601  A(I,J)  =  AMATII,J) 

DET  =  AIl,l)*A(2,2)*A(3,3)  +  Al 1 , 2 ) ♦A ( 2 ,3 ) ♦A ( 3 , 1) 

1  +  A(1,3)*A(2,1)*A(3,2)  -  A( 1 ,3) ♦A ( 2 ,2 ) ♦A ( 3, 1 ) 

2  -  A(1,1)*A{2,3)*A{3,2)  -  A( 1 , 2 ) ♦A ( 2 ,1 ) ♦A ( 3, 3) 

Aid,!)  =  I  A(2,2)*A{3,3)  -  A(  2,3 )  ♦At  3, 2)  )  /  OET 
Aid, 2)  =  (  A(2,3)*A(3,1)  -  A(  2 , 1 )  ♦At  3 , 3)  )  /  OET 

Aid, 3)  =  (  A(2,  1)*A(  3,2)  -  A 1 2 ,2  )  ♦At  3 , 1 )  )  /  DET 

AI(2,2)  =  (  A(1,1)*A(3,3)  -  A t I , 3 ) ♦AI 3 , I )  )  /  DET 
AI(2,3)  =  {  At l,2)^AI 3,1)  -  A d , 1 ) ♦A t 3, 2 ) )  /  DET 

AI(3,3)  =  (  Ad,l)^A{2,2)  -  At  1 ,2 )  ♦At  2 , 1 )  )  /  OET 

EX  =  1.  /  AId,l)  /  T 

EY  =  1.  /  AI(2,2)  /  T 

GXY  =  1.  /  AI(3,3)  /  T 
XNUXY  =  -  Aid, 2)  /  AId,l) 

XNUYX  =  -  Aid, 2)  /  AI(2,2) 

WRITE(6,441) 

441  FORMAT  t'OTHE  LAMINATE  PROPERTIES  ARE') 

WRITE  (6,442)  EX, EY, GXY, XNUXY, XNUYX 

442  FORMAT  COEX  =' ,E  15.6, 3X, 'EY  =' ,E15.6 ,3  X, 'G  =•  ,E15.6,3X,  •  NUXY  =', 

1  F8.4,3X, 'NUYX  =' ,F8.4) 

GO  TO  470 


SS88336 
SS88337 
SS88338 
SS88339 
SS8B340 
SS3B341 
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SS8B344 
SS88345 
SS88346 
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SS 88349 
5588350 
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SS8B355 
SS88356 
SS88357 
SS8B358 
SS88359 
SS3B360 
SS8B361 
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SS8B363 
SS8B364 
5588365 
SS88366 
SS8d367 
5538368 
5588369 
SS36370 
SS8B371 
SS88372 
SS83373 
SS3B374 
SS38375 
SS8B376 
S388377 
SS3B378 
SS8B3/9 
SS8B380 
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SS88382 
SS38383 
SS8B384 
SS3B335 
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SS8B389 
SS8B390 
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PLY  PROPERTIES 


SS8B392 
SS8B393 

XNU12( I ) ,H( 1) .THETAC I) ,I=lfNPLYS)SS8B394 

XNU12(I)« 

I=l,NPLYS 


**  LAMINATE  WITH  VARIABLE 
450  IF  (  lOUT  .LT.  7  ) 

IREAO  (5*5)  (  Eld),  E2(I),  G(  I  )  , 

IF  (  lOUT  .GE.  7  )  READ  (5,5)  (  EKI),  E2{I),  GII  )  ,  XNU12(I),  $$83395 

I  H(I),  THETA(I),  ( EC( J, I ) , J=l,3) ,  (E T ( J, I ) , J=l , 3 ) ,  I=l,NPLY$  )  SS8B396 
T  =  0.  $$8B397 

DO  461  I=l,NPLYS  $$83398 

WRITE(6,460)  I , H( I ) ,E 1( I ) ,E2( I ) , XNU12( I ) ,G( 1 1 ,  THETA(I)  $$8B399 

460  FORMAT! 'OPLY' 14, •  HAS  A  THICKNESS  OF  'Fll.T,'  E1='E16.7,'  E2=' E16. $$83400 
l7/»  NU12='F6.4,  •  G='E16.7,'  AND  ORIENTATION^*  F10.3,'  DEGR$$8B401 


461 


462 


470 


C  ** 


2EE$.*  ) 

IF  (  lOUT  .GE.  7  )  WRITE(6,381) (EC( J,I) ,J=1,3), (ET(J, I) ,J=1,3) 
T  =  T  *  H  (  I  ) 

WRITE  (6,462)  T 
FORMAT  ( 'OT  = 

GO  TO  410 
CONTINUE 

IF  (  NSTRNG  .EQ. 

FOR  STRINGERS 

IF  (  lEUS  .EQ.  1  )  GO  TO  471 
READ  (5,5)  (  YSTRNG(L ) ,YBARS( L) , 

1  XIYZS(L),  XIZZS(L), 


,F9.4,'  IN.') 


0  )  GO  TO  490 


2  L=l, NSTRNG 

WRITE  (6,477) 

477  FORMAT  COTHE  STRINGER  PROPERTIES  FOLLOW  — '» 
WRITE(6,479) 


ZBARS(L),  A$(L),  XIYYS(L), 
ES(L) ,  GJS(L)  ,  RHO$(L) , 

) 


( 


•Y* ,T16i 


I,  'ZBAR* ,T30,' AREA* , 


479  FORMAT 

1  T40, • lYY* ,T52, 'lYZ* ,T64, • IZZ • ,T77 , ' E • , T88 , 'GJ* ,T100, 

2  'RHO'/I 

WRITE(6,480) (L, Y$TRNG(L) ,YBARS(L) ,  ZBARSIL),  AS(L),  XIYY$(L), 

1  XIYZ$(L),  XIZZ$(L),  ESIL),  GJ$(L),  RHOS(L), 

2  L=l, NSTRNG  ) 

480  FORMAT  ( IX, OP  1 3, F9. 2 , 3F 7. 2, 1P6E 12.4 ) 

GO  TO  489 

471  READ  (5,5)  YBARS(l),  ZBARS(l),  AS(1»,  XIYYS(l),  XIYZS(l), 

1  XIZZS(l),  ESd),  GJS(l),  RHOS(i) 

YSTRNG(l)  =  BB/(NSTRNG  +  1) 

IF  (  IBCY  .EQ.  0  )  YSTRNG(l)  =  BB/NSTRNG 
DO  472  L=2, NSTRNG 
YSTRNG(L)  =  L  *  YSTRNGI 1 ) 

YBARSIL)  =  YBARS(l) 

ZBARS(L)  =  ZBARS(l) 

AS(L)  =  AS(1) 

XIYYS(L)  =  XIYYS(l) 

XIYZS(L)  =  XIYZS(l) 

XIZZS(L)  =  XIZZS(l) 

ES(L)  =  ESd) 

GJS(L)  =  GJSd) 

472  RHOS(L)  =  RHOS( 1) 

WRITE  (6,473)  NSTRNG 

473  FORMAT  ( ' OTHERE  ARE  *,I3,*  EQUALLY  SPACED  STRINGERS  EACH  OF  WHICH 
IHAS  THE  FOLLOWING  PROPERTIES  — ') 

WRITE  (6,474) 

474  FORMAT  ( • 0* , T6, • SPAC ING  * ,T 16 , * YB AR ' , T23 , *  ZB AR ' ,T30 , *  AREA • , 

1  T40,*IYY',T52,*IYZ* ,T64,*IZZ' ,T77 , • E • ,T88 , • GJ • , TlOO , 

2  'RHO'/I 


SS8B402 

SS8B403 

SS8fl404 

SS8B405 

SS8B40b 

SS88407 

SS8B408 

SS8B409 

SS3B410 

SS88411 

SS8B412 

SS8B413 

SS8B414 

SS8B4i5 

SS83410 

SS8B417 

SS8B418 

SS8B419 

SS8B420 

SS8B421 

SS8a422 

SS88423 

SS8B424 

SS8B425 

SS88426 

SS8B427 

SS3B428 

SS8B429 

SS8B430 

SS8B431 

SS8B432 

SS8B433 

SS8B434 

SS8B435 

SS88436 

SS88437 

SS88438 

SS86439 

SS8B440 

SS3B441 

SS8B442 

SS8fl443 

SS8B444 

SS8B445 

SS8B446 

SS8B447 
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c 


c 


WRITE  (6f475)  YSTRNG(1)»  YBARSID*  ZBARSIll*  AS(i»»  XIYYS(l). 

1  XIYZSIDt  XIZZSdIt  ESIDf  GJS(l)#  RHOSdJ 

475  FORMAT  (4X# F9. 2 , 3F7.2 , 1P6E 12.4) 

489  DO  476  L=1,NSTRNG 

476  YSTRNG(L)  =  YSTRNGID/BB 

490  COMTINUE 

IF  (  NRING  .EQ.  0  )  GO  TO  510 
FOR  RINGS 

IF  (  lEQR  .EQ.  1  )  GO  TO  501 

READ  (5,5)  I  XRINGS(K),  XBARR(K),  ZBARR(K),  ARIK),  XIXXR(K), 

1  XIXZR(K),  XIZZR(K),  ERIK),  GJRIK),  RHORIK), 

2  K=l, NRING  ) 

WRITE  (6,498) 

498  FORMAT  I'OTHE  RING  PROPERTIES  FOLLOW  — ') 

WRITE  (6,500) 

500  FORMAT  ( • O' , T2, • K • , T9, • X* ,T16, • XBAR • , T23, • ZBAR* ,T30 , • AREA ' , 

1  T40, 'IXX' ,T52,'IXZ' ,T64,'IZZ' ,T77,'E',T88, •GJ',T100, 

2  'RHO'/) 

WRITE(6,480) (K,XRINGS(K) ,  XBARR(K),  ZBARR(K),  ARIK),  XIXXR(K), 

1  XIXZR(K),  XIZZRIK),  ERIK),  GJR(K),  RHORIK), 

2  K=l, NRING  ) 

GO  TO  509 

501  READ  (5,5)  XBARRd),  ZBARRd),  ARID,  XIXXRIl),  XIXZRIl), 

1  XIZZRd),  ERd),  GJRd),  RHORd) 

XRINGSd)  =  AA/(NRING  +  1) 

DO  502  K=2, NRING 
XRINGS(K)  =  K  *  XRINGSd) 

XBARR(K)  =  XBARRd) 

ZBARR(K)  =  ZBARRd) 

ARIK)  =  ARID 
XTXXR(K)  =  XIXXRIl) 

XIXZR(K)  =  XIXZRIl) 

XIZZR(K)  =  XIZZRI 1) 

ERIK)  =  ERd) 

GJRIK)  =  GJRd) 


SS88443 
SS88449 
SS8B450 
SSdB451 
SS8B452 
SS8B453 
SS8B454 
SS8B455 
SS8fl456 
SS88457 
SS8B458 
SS8B459 
SSdB460 
SS8B46i 
SS8B462 
SS88463 
SS8B464 
SS8B465 
SS8B466 
SS8B467 
SS 88468 
SS8B469 
SS88470 
SS8B471 
SS88472 
SS 88473 
SS8B474 
SS8B475 
SS8B476 
SS8a477 
SS3B478 
SS8B479 
SS8B4aO 
SS8B431 
SSaB482 


502  RHORIK)  =  RHORd)  SS88483 

WRITE  16,503)  NRING  SS8B484 

503  FORMAT  I'OTHERE  ARE  •,I2,'  EQUALLY  SPACED  RINGS  EACH  OF  WHICH  HAS  SS8B485 

ITHE  FOLLOWING  PROPERTIES  — ')  SS8B486 

WRITE  (6,504)  SS8B487 

504  FORMAT  I • 0 • , T6, • SPAC I NG  • ,T 16 , * XBAR ' , T23 , • ZB AR • ,T30 , • AREA • ,  SS8B488 

1  T40, ' IXX* ,T52, • IXZ* ,T64, 'IZZ* ,T77, 'E' ,T88, 'GJ' ,T100,  SS88489 

2  'RHO'/)  SS88490 

WRITE  (6,475)  XRINGSd),  XBARRd),  ZBARRd),  ARID,  XIXXRIl),  SS8B491 

I  XIXZRIl),  XIZZRd),  ERd),  GJRID  ,  RHORID  SS8B492 

509  DO  505  K=l, NRING  5588493 

505  XRINGSIK)  =  XRINGSIK)  /  AA  SS88494 

510  CONTINUE  SS88495 

IF  I  IFLAGD  .EQ.  0  )  GO  TO  550  5588496 

**  IF  DOING  DYNAMICS,  READ  AVERAGE  MATERIAL  DENSITY  SS8B497 

READ  15,5)  DENSE  5588498 

WRITE  16,520)  DENSE  SS3B499 

520  FORMAT  I'OTHE  MATERIAL  DENSITY  =  'E15.8,'  LB.-SEC.**2/IN.**4' )  5583500 

RHAB  =  DENSE  ♦  T  ♦  AA  *  BB  SS8B501 

IF  I  NLMASS  .EQ.  0  )  GO  TO  550  SS8B502 

**  HAVE  LUMPED  MASSES  SS88503 


158 


PMASSdl 


LOADS  ARE  TO  BE  INCLUDED  BUT 
PROBLEM  IS  TERMINATED.'! 


DO  530  I=l,NLMASS 
READ  (5,5)  X,  Y, 

IPWW(  I)  =  X  ♦  .1 
IPWY( I )  =  Y  ♦  .1 

530  WRITE  (6,540)  IPWW(I),  IPWY(I),  PMASS(I) 

540  FORMAT  COTHERE  IS  A  LUMPED  MASS  AT 

1  •  OF  MAGNITUDE'E15.7, '  LB-SEC**2/ IN • ) 

550  CONTINUE 

IF  (  lEDGE  .EQ.  0  )  GO  TO  610 
C  READ  EDGE  LOADS 

IF  (  IBCY  .EQ.  0  .AND.  lEDGE  .EQ.  2  )  CALL 

IF  (  NPNX  .GT.  0  .AND.  NPNY  .GT.  0  )  GO  TO 

WRITE  (6,560) 

560  FORMAT  ( ' lEDGE 
1  /•  THIS 

GO  TO  99999 

570  READ  (5,5)  ( ( 

571  CONTINUE 

I  EDGE  =  1 

WRITE  (6,580)  ((  PX(J,I),  J=1,NPNX  ),  1=1, NPNY  ) 
580  FORMAT  (•0PX(I,J)  FOLLOWS'/) lP10Ei2.4) ) 

WRITE  (6,590)  ((  PY(J,I),  J=1,NPNX  ),  1=1, NPNY  ) 
590  FORMAT  COPYd.J)  FOLLOWS' /( 1P10E12. 4)  ) 

WRITE  (6,600)  ((  PXY(J,I),  J=1,NPNX  ),  1=1, NPNY 
600  FORMAT  ('OPXY(I,J)  FOLLOWS' /( 1P10E12. 4) ) 

IF  (  NSTRNG  ♦  NRING  .EQ.  0  )  GO  TO  610 
IF  (  NSTRNG  .EQ.  0  )  GO  TO  608 
DO  604  L=l, NSTRNG 
V(l,l)  =  1. 

Y  =  YSTRNG(L) 

DO  602  K=2,NPNY 
V(1,K)  =  Y  **  lK-1) 

XNX  =  0. 

DO  603  K=1,NPNY 
XNX  =  XNX  +  PX( 1,K)  * 

PAXS(L)  =  XNX  ♦  AS(L) 

IF  (  NPNY  .EQ.  1  .AND 


CYLNDR  ( 
570 


8571  ) 


NPNX  OR  NPNY  IS  ZERO.' 


PX(J,I),  PY(J,I),  PXY(J,I),  J=1,NPNX  ),  1=1, NPNY  ) 


) 


602 

603 

604 

605 

606 


V( 1,K) 

*  ES(L)  /  EX 
lEQS  .EQ.  1 


WRITE  (6,605)  PAXSd) 
AXIAL  LOAD  CARRIED  BY  EACH  STRINGER  IS  ',E12.5, 


607 

608 


609 


611 

612 


FORMAT  COTHE 

1.'  ) 

IF  I  NPNY  .NE.  1  .OR.  lEQS  .EQ.  0  )  WRITE  (6,606) 

FORMAT  COTHE  AXIAL  LOADS  (  LBS.  )  CARRIED  BY  THE  STRINGE 
1  --') 

IF(NPNY.NE.l.OR.IEOS.EQ.O)  WRITE(6,607) (L ,PAXS ( L ) , L=1 ,NST 
FORMAT  ( 'O' ,8( I3,E13.5) ) 

IF  (  NRING  .EQ.  0  )  GO  TO  610 
IF  (  IBCY  .EQ.  0  )  GO  TO  610 
V(l,l)  =  1. 

DO  612  K=l, NRING 
X  =  XRINGS(K) 

DO  609  L=2,NPNX 
V(1,L)  =  X  **  IL-1) 

XNY  =  0. 

DO  611  L=1,NPNX 
XNY  =  XNY  +  PY(L, 1)  * 

PAXR(K)  =  XNY  *  AR(K) 

IF  {  NPNX  .EQ.  1  .AND. 


RS 


RNG) 


V( 1,L) 

*  ERIK)  /  EY 
lEQR  .EQ.  1 


T 

WRITE 


(6,613)  PAXR(l) 


SS8B504 
SSaB505 
SS8B506 
SS38507 
SS8B508 
SSd8509 
SS8B510 
SS88511 
SS88512 
SS38513 
SS8B5i4 
SS8B515 
SSd8516 
SS88517 
SS8B5i8 
SS8B519 
SS8B520 
SS3B521 
SS88522 
SS88523 
SS3B524 
SS8B525 
SS8B526 
SS8B527 
SS88528 
SS88529 
SS83530 

sssasil 

SS8B532 
SS3a533 
SS8B534 
SS8B535 
SS3a536 
SS8a537 
SS3B53a 
SS8B539 
SS88540 
LBSSS38541 
SS8B542 
SS38543 
F0LL0WSS8a544 
ssaa545 
SS8B546 
$583547 
SS88548 
SS83549 
SS88550 
5583551 
5588552 
SS88553 
SS8B554 
SS88555 
SS8B556 
SS8B557 
SS8B558 
SS3B559 
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613  FORMAT  COTHE  LOAD  CARRIED  BY  EACH  RING  IS  SEIZ.S,'  LBS.')  SSBBSbJ 

IF  (  NPNX  .NE.  1  .OR.  lEQR  .EQ.  0  )  WRITE  (6,6141  SS8B561 

614  FORMAT  COTHE  LOADS  (  LBS.  )  CARRIED  BY  THE  RINGS  FOLLOW  — *)  SS8B5t>2 

IFINPNX.NE. l.OR. lEQR.EQ.OI  WRITE (6, 607) ( K ,PAXR( K) , K=1 , NRI NG)  SS8B563 

610  CONTINUE  SS83564 

IF  I  IFLAGW  .NE.  1  )  GO  TO  650  SS8B565 

C  *♦  READ  LATERAL  LOADS  SS8B566 

IF  I  NQTX  .GT.  0  .AND.  NQTY  .GT.  0  )  GO  TO  630  SS8856/ 

WRITE  (6,620)  SS8B5b8 

620  FORMAT  CILATERAL  LOADS  ARE  TO  BE  INCLUDED  BUT  NQTX  OR  NQTY  IS  ZERSSBBSb*) 
10.'  /'  THIS  PROBLEM  IS  TERMINATED.')  SS88570 

GO  TO  99999  SS8B571 

630  READ  (5,5)  ((  Q(J,I),  J=1,NQTX  ),  1=1, NQTY  )  SS8B572 

WRITE(6,640)((Q(J,I),  J=1,NQTX  ),  1=1, NQTY  )  SS8B573 

640  FORMAT  (*00(1,3)  FOLLOWS'  /  (1P10E12.4))  SS8B574 

650  CONTINUE  SS8B575 

IF  (  NPTLDS  .EQ.  0  )  GO  TO  680  SS8B576 

C  HAVE  POINT  LOADS  SS8fl577 

DO  660  1=1, NPTLDS  SS8B578 

READ  (5,5)  X,  Y,  DUM  SS8B579 

IPXX(I)  =  X  ♦  .1  SS8B580 

IPYY( I )  =  Y  +  .1  SS8B58i 

PCI  I )  =  DUM  SS8B582 

660  WRITE  (6,670)  IPXX(I),  IPYY(I),  PC ( I )  SS88583 

670  FORMAT  COTHERE  IS  A  CONCENTRATED  LOAD  AT  COORDINATES • 1 3, *,* 13 ,  SS8B584 

1  '  OF  MAGNITUDE'F12.5, '  LBS.')  SS8B585 

680  CONTINUE  SS3B586 

IF  (  NPTMOM  .EQ.  0  )  GO  TO  710  SS88587 

C  HAVE  POINT  MOMENTS  SS3B588 

DO  690  1=1, NPTMOM  SS8B589 

READ  (5,5)  X,  Y,  TAG,  DUM  SS8B590 

IFXX(I)  =  X  +  .1  SS88591 

IFYY( I )  =  Y  +  . 1  SS8B592 

FC( I )  =  DUM  SS88593 

ITAGCM(I)  =  TAG  *■  .1  SS88594 

DIR  =  XDIR  SS8B595 

IF  (  ITAGCMI I)  .EQ.  2  )  DIR  =  YDIR  SS8B596 

690  WRITE  (6,700)  DIR,  IFXX(I),  IFYY(I),  FC(I)  SS8B597 

700  FORMAT  COTHERE  IS  A  CONCENTRATED  MOMENT  ABOUT  THE  ',A1,'  AXIS  AT  SS8B598 
ICOORDINATES ' 13, ' , ' 13, •  OF  MAGNI TUDE 'E15. 7 , *  IN. -LBS.')  SS8B599 

710  CONTINUE  SS3B600 

IF  (  NLNMOM  .EQ.  0  )  GO  TO  750  SS88601 

C  **  HAVE  LINE  MOMENTS  SS3B602 

00  730  1=1, NLNMOM  SS8B603 

READ  (5,5)  TAG,  DIST,  PLMOM(I)  SS88604 

ITAGLM(I)  =  TAG  +  .1  SS8B605 

IDISLM(I)  =  DIST  ♦  .1  SS88606 

IF  (  ITAGLM(I)  .EQ.  2  )  GO  TO  720  SS8B607 

DIR  =  XDIR  SS8B608 

GO  TO  730  SS8B609 

720  DIR  =  YDIR  SS8B610 

730  WRITE  (6,740)  DIR,  IDISLM(I),  PLMOM(I)  SS88611 

740  FORMAT  (  'OTHERE  IS  A  LINE  MOMENT  PARALLEL  TO  THE  'jAl,'  AXIS  ON  GSS8B612 
IRID  LINE  ',  12,'  WITH  A  MAGNITUDE  OF  ',E15.7,'  IN-LB/IN')  SS8B613 

750  CONTINUE  SS8B614 

IF  (  NPTSUP  .EQ.  0  )  GO  TO  780  SS8B615 
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HAVE  POINT  SPRINGS  SPECIFIE 
DO  760  I=1,NPTSUP 
READ  (5,5)  X,  Yf  PKC(I) 
IGSPRXI I )  =  X  +  .1 
IGSPRY(  I )  =  Y  .1 
I  WRITE  {6f770)  IGSPRX(I),  I 
)  FORMAT! •OTHERE  IS  AN  ELASTI 
1  •  WITH  A  SPRING  CON 

)  CONTINUE 

IF  (  NLNSPR  .EQ.  0  )  GO  TO 
HAVE  LINE  SPRINGS 
DO  810  1=1, NLNSPR 
READ  (5,5)  TAG,  DIST,  PLI 
ITAGLS( I )  =  TAG  +  •! 

IDISLS( I )  =  GIST  + 

DIR  =  XDIR 

IF  (  ITAGLSC  n  -EQ.  2  )  01 

I  WRITE  (6,820)  DIR,  IDISLSd 
I  FORMAT  (  •OTHERE  IS  A  LINE 


0  AT  GRID  POINTS 


GSPRY(  I)  ,  PKCd) 

C  SUPPORT  AT  C00R01NATESSI3 
STANT  0F*E16.8,»  LB/IN. •) 


NE(I) 


IRIO  LINE  * ,  12, •  WITH  A  SPRI 
I  CONTINUE 

IF  (  IPRTN  +  IPRTQ  .EQ.  0  ) 
DO  890  1=1,5 
X  =  .25  «  (  I--1) 

V{1,1)  =  1. 

DO  840  K=2,10 
\  V( 1,K)  =  X  ♦♦  (K-1) 

DO  890  J=l,5 
Y  =  .25  *  (J-1) 

V(2,l)  =  1. 

DO  850  K=2,10 
I  V(2,K)  =  Y  lK-1) 

PRTNX( I, J)  =  0. 

PRTNY(I,J)  =  0. 

PRTNXYdjJ)  =  0. 

PRTQd,J)  =  0. 

IF  (  IPRTN  .EQ.  0  )  GO  TO 

DO  860  K=1,NPNX 

DO  860  L=1,NPNY 

PRTNX  (  I, J  )  =  PRTNX  (  I,J)  + 

PRTNY  d,J)  =  PRTNY  (I,J) 

I  PRTNXY(I,J)  =  PRTNXY{I,J)  + 
f  IF  (  IPRTQ  .EQ.  0  )  GO  TO 

DO  880  K=1,NQTX 

DO  880  L=1,NQTY 

I  PRTQCdJ)  =  PRTQ(  I,  J)  +  Q(K 
I  CONTINUE 

IF  (  IPRTN  .EQ.  0  )  GO  TO 
WRITE  (6,900) 

I  FORMAT  (dNX,  NY,  AND  NXY, 
lINTS  OF  THE  PANEL*//) 

WRITE  (6,910)  ((  PRTNXd,J) 

I  FORMAT  {•  «,5E20.7) 

WRITE  (6,920) 

I  FORMAT  CO*) 

WRITE  (6,910)  (  (  PRTNYd  ,J) 


IPRTQ 


R  =  YDIK 
),  PLINE(I) 
SPRING  PARALLEL 
NG  CONSTANT  OF 

GO  TO  950 


TO  THE  • 

*  ,E15.7,  • 


•,A1, 
•  LB/ 


=  PRTNX 
=  PRTNY 


(  I,J) 
(I,J) 


PRTNXYI I, J) 


PX  (K,L)  ♦  V{1,K)  ♦  V(2,L) 
PY  (K,L)  ♦  V(1,K)  *  V(2,L) 
PXY(K,L)  ^  Vll,K)  *  V(2,L) 
890 


,L)  ♦  Vd,K)  ♦  V(2,L) 


RESPECTIVELY,  ARE  PRINTED  AT 


,  J=l,5),  1=1,5) 


J=l,5),  1=1,5) 


SS8B616 
SS80617 
SS8B6I8 
SS8B619 
SS8B620 
SS8B62i 
•,*I3,  SS86622 

SS8B623 
SS8B624 
SS8B625 
SS88626 
SS88627 
SS8862d 
S$3B629 
SS8B6iO 
SS8B631 
SS8B632 
SS8B63i 
•  AXIS  ON  GSS8B634 
IN/IN.')  SS3B635 
SS88636 
SS88637 
SS3B638 
SS3B639 
SS8864U 
SS88641 
SS8B642 
SS8B643 
SS88644 
SS3B645 
SS30646 
SS3B647 
SS8B648 
SS3B649 
SS8B650 
SS8B651 
SS38652 
SS36653 
SS8B654 
SS8B655 
SS36656 
SS8B657 
SS88658 
SS8B659 
SS306oO 
SS8B661 
5583662 
5588663 
SS8B664 
QUARTER  P0SS8B665 
SS8B666 
3580667 
SS8B668 
SS8B669 
SS86670 
SS3B671 
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930 


940 


950 


960 


9999 

99999 


I=lf5J 


IS  PRINTED  AT  QUARTER 


WRITE  (6,920) 

WRITE  (6,910)  ((  PRTNXY(I,J),  J=l,5), 

IF  (  IPRTQ  .EQ.  0  )  GO  TO  950 
WRITE  (6,940) 

FORMAT  CITHE  LATERAL  LOAD  DISTRIBUTION 
ITS  OF  THE  PANEL'//) 

WRITE  (6,910)  ((  PRTQdfJ),  J=l,5),  1=1,5) 

CONTINUE 

IF  (  IFLEX  .EQ.  0  )  GO  TO  970 
READ  (5,5)  (  XP(I),  YPd),  1  =  1, IFLEX  ) 

WRITE  (6,960)  IFLEX,  (  XP(I),  YPd),  1=1, IFLEX 

FORMAT  ('OTHE',13,'  NORMALIZED  POINTS  FOR  THE  FLEXIBILITY  MATRIX 
IRE' //3(6X, IHX, lOX, lHY,4X)/( /6F11.5) ) 

970  CONTINUE 
RETURN 
CALL  SKIPPR 
GO  TO  1 
END 


) 


SS80672 
SS8B673 
SS8B674 
SS8B675 
P0INSS8B676 
SS8B677 
SS8B678 
SS8B679 
SS8B68U 
SS8B68i 
SS 86682 
ASS8B683 
SS8B684 
SS8B685 
SS8B6a6 
SS80687 
SS86688 
SS8B6d9 


CC  =  00690 
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o  o  o  o  o 


SUBROUTINE  CYLNDR  (  *  » 


**  THIS  SUBROUTINE  CALCULATES  THE  NX,  NY,  AND  NXY  VALUES  TO  BE 
USED  WHEN  A  SHELL  IS  LOADED  BY  AN  AXIAL  FORCE,  A  TORQUE, 

♦♦  AND/OR  A  BENDING  MOMENT. 


C 


C 


c 


DIMENSION  PX(10,10),  PY(10,10),  PXYU0,10),  VIIO) 


COMMON  /  GEOM 
COMMON  /  NUMBER 
COMMON  /  PARAM 


AA,  BB, 

NNUMdOI,  NPNX, 
PDUMI 16501, 


RR 

NPNY 

PX,  PY, 


PXY 


DATA  V(l)  /  1.00225  /, 
DATA  V(4)  /  19.8787  /, 
DATA  V(7)  /-25.2977  /, 
DATA  V(IO)/  1.57479  / 


V(2)  /  .140605  /, 
V(5)  /  28.8562  /, 
VI8)  /-15.1520  /, 


V(3)  /  -23.2379  / 
V(6)  /  -3.39401  / 
V{9)  /  16.6307  / 


TORQUE  =  0. 

PI  =  3.1415926536 
NPNX  =  1 

5  FORMAT  (IX) 

READ  (5,5)  FAXIAL,  BNDMOM 

WRITE  (6,6)  FAXIAL,  TORQUE,  BNDMOM 

6  FORMAT  COTHE  APPLIED  CYLINDER  LOADS  ARE  — •/ 

1  •  STAG, 'AXIAL  FORCE  =•  ,E15.6,T74, 'LBS.  •/ 

2  '  ' ,T40, ' TORQUE  = '  , E 15.6 , T74 , ' I N-L BS. ' / 

3  '  ' ,T40, 'BENDING  MOMEMT  =' E15. 6 , T74, ' IN-LBS .' ) 

PF  =  FAXIAL  /  2.  /  PI  /  RR 

PT  =  TORQUE  /  2.  /  PI  /  RR  /  RR 

PM  =  BNDMOM  /PI  /  RR  /  RR 

IF  (BNDMOM  .GT.  .0001  )  GO  TO  10 

NPNY  =  1 
PX  (1,1)  =  PF 
PY  (1,1)  =  0. 

PXY(1,1)  =  PT 
RETURN  1 
10  NPNY  =  10 


DO  80  J=l, 10 
PX(1,J)  =  V(J)*PM 
PY(1,J)  =  0. 

80  PXY(1,J)=  0. 

PX( 1,1)  =  PX(1,1) 
PXY(1,1)=  PT 
RETURN  1 
END 


*■  PF 


SS8C000 

SS8C001 

SS8C002 

SS8C003 

SS8C004 

SS8C005 

SS8C006 

SS8C007 

SS8C008 

SS8C009 

SS8C010 

ssacoil 

SS8C012 

SS8C013 

SS8C014 

SS8C015 

SS8C016 

SS8C017 

ssBCOia 

ssacoiv 

SS8C020 

SS8C021 

SS8C022 

SS8C023 

SS8C024 

SS8C025 

SS8C026 

SS8C027 

SS8C028 

SS8C029 

SS8C030 

SS8C031 

SS8C032 

SS8C033 

SS8C034 

SS8C035 

SS8C036 

SSdC037 

SS8CG38 

SS8C039 

SS8C040 

SS8C041 

SS8C042 

SS8C043 

SS8C044 


CC  =  00045 
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SUBROUTINE  CHECK  CA) 

REAL*8  A 

COMMON  /  CHECKS  /  lERROR 
lERROR  =  1 
WRITE  16,6)  A 

FORMAT  COTHE  PROGRAM  HAS  READ  AN  UNACCEPTABLE  VALUE  FOR  '  ,A6  / 

^  _ _ _ 


SS80000 

SS8D001 

SS80U02 

SS80003 

SS8D004 

SS8DOQ5 


1  •  THE  NEXT  PROBLEM  WILL  BE  ATTEMPTED  AFTER  CHECKING  THE  COSS8D006 

2NTROL  VARIABLES')  SS8D007 

RETURN  SS8D003 

£ND  ssaooo9 


CC  =  00010 
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o  o  o  o  o  o 


SUBROUTINE  STIFF 

THIS  SUBROUTINE  CALCULATES  THE  6  BY  6  ARRAY  OF  STIFFNESS  TERMS  AT 
A  POINT  FOR  A  LAMINATED  PLATE.  THE  INPUT  IS  THE  NUMBER  OF  PLIES 
IMPLY),  THE  ORIENTATIONS  OF  THE  PLIES  (TETAI  )),  THE  THICKNESS  OF 


EACH  PLY  (THICK),  AND  THE  MATERIAL  PROPERTIES 
PLIES  (E1,E2,G,  AND  POISSON'S  RATIO  I U1 ) ) . 

REVISED  FOR  CURVED  PANELS  -  8/69 

DIMENSION  AHI41),  CB13,3,40) 

DIMENSION  Cl(40),  C2(40),  C3(40) ,  Cll(40), 


COMMON  /  ABD  / 


A(3,3),  DS(3,3),  DP(3,3), 

THICK(40),  EU40),  E2(40) 


OF  THE  ORTHOTROPIC 


C22(40),  C12(40) 
RHAB,  TETA(40), 
G(40),  Ul(40), 


ET(3,40),  ANGCK{3,10),  MCHK(3),  AH 


COMMON 

COMMON 


NUMBER 

CNTROL 


EC(3,40) , 

MPLY 

IDUMIS),  IMATL 
EQUIVALENCE  ( C  1<  1 )  ,E 11  I ) ) , IC 21 1 ) , E2 1 1 ) ) , (C3 1 1 ) ,U1 1 1)  ) 

C  THE  MIDDLE  SURFACE  IS  LOCATED 

MPLY2=  MPLY4-1 
AHK=0. 

DO  100  1=1,  MPLY 
100  AHK=  AHK  *■  THICK!  I)/2. 

AH( 1)=-AHK 
DO  30  1=2,  MPLY2 
30  AH{n=  AH(I-1)+  THICK(I-l) 

C  THE  C8AR  ARRAY  IS  CALCULATED  FOR  EACH  PLY,  USING  DOUBLE-ANGLE 

C  TRANSFORMATION  FORMULAS. 

DO  40  N=l,  MPLY 

U2=  UlIN )*E2(N)/E11N) 

.  DEL=  l.-U2*Ul(N) 

CC1=  E1(N)/0EL 
CC2=  E2(N)/0EL 
CC3=  CC1«'U2 
CC4=  GIN) 

CHIN)  =  CCl 
C22IN)  =  CC2 
C12IN)  =  CC3 

IF  I  IMATL  .EQ.  1  )  GO  TO  40 
COT  =  2. *TETA(N)*. 017453292519943 
C02=  CUSICOT) 

C04=  C0SI2.*CnT) 

SN2=  SINICOT) 

SN4=  SIN(2.*C0T) 

AJ1=  CC1+CC2+2.*CC3 
AJ2=  CC4-  CC3 


SS8E000 

SS8EU01 

SS8E002 

SS8E003 

SS8EU04 

SS8E005 

SS8E006 

SS8E007 

SS8E008 

SS8E009 

SS8E010 

SS8E011 

SSaE012 

SS8E013 

SS8E014 

SS8E015 

SS8E016 

SS8E017 

SS&E018 

SS8E019 

SS8E020 

SS8E021 

SS8E022 

SS8t02i 

SS8E024 

SS8E025 

SS8E026 

SS8E027 

SS8E028 

SS8E029 

SS8E030 

SS8E031 

SS8E032 

SS8E033 

SS8E034 

SS8E035 

SS8E036 

S53E037 

SS8E038 

SS8E039 

SS8E040 

SS8E041 

SS8E042 


CBl  1,  l,N)=.375*AJl  +  .5*AJ2*^(CCl-CC2)/2.*C02+(  AJl/8.+AJ2/2.-CC4)*C04SS8E043 


CBt l,2,N)=AJl/8.  -AJ2/2.+ICC4-AJl/8.-AJ2/2.)*C04 
CBI2,1,N)=  CB(1,2,N) 

CBI 1,3,N)=(CC1-  CC2)/4.*SN2  *1 AJ1/8.+AJ2/2.-  CC4)*SN4 
CB(3,1,N)=CBI1,3,N) 

CBI2,2,N)=  CB(1,1,N)  +( CC2-CC 1 ) *C02 

CBI 1,3, N)  -(AJl/4.+AJ2-CC4*2.)*SN4 
CB(2,3,N) 

AJl/8.  +AJ2/2.  ♦(CC4  -A J1 / 8.-A J2/2. ) ♦C04 


40 


C8(2t3,N)= 

CB(3,2,N)= 

CBI 3,3,N)= 

CONTINUE 

THE  A,  DSTAR,  AND  D  MATRICES 
DSl  ,  ),  AND  DPI  ,  ). 

IF  I  IMATL  .EQ.  1  )  GO  TO  51 


ARE  CALCULATED  AND  STORED  IN  AI  ,  ), 


SS8E044 

SSdE045 

SS8E046 

SS8E047 

SS8EU48 

SS8E049 

SS8E050 

SS8E051 

SS8E032 

SS8E053 

SS8E054 

SS8E055 
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DO  50  I=lf3 

SS8E056 

DO  50  J=I,3 

SS8E057 

A(  I, J)  =  0. 

SS8E058 

0S(  I»J)  =  0. 

SS8E059 

DP(  I, J)  =  0. 

SS8E060 

AX=AH( 1)*AH( 11 

SS8E061 

DO  60  K=1,MPLY 

SS8E062 

A(I,J)  =  A(I,J)+  CBdfJtK)  ♦(AH(K<-l)-AH(K)) 

SS8E063 

AY=AX 

SS8E064 

AX=AH(K+1)*AH(K+1) 

SS8E065 

DP(IfJ)=  DP(I»J)+  CB( ItJ»K)*(AX*AH(K+l)-AY*AH(Kl) 

SS8E066 

60 

0S(I,J)=  DStI,J)+  C8( I,J,K)*(AX-AY) 

SS8E067 

DP(  I,J)=DP(ItJ)/3. 

SS8E068 

DSdf  J)=  DSl  I,J  )/2. 

SS8e069 

0P( Jf 1 1=  DP( If J) 

SS8E070 

DS(J,n=  DSCIfJ) 

SS8E071 

50 

A(Jf  I  )=  AdfJl 

SS8E0  72 

51 

CONTINUE 

SS86073 

DO  70  N=1,MPLY 

SS8E074 

CKN)  =  Cll(N) 

SS8E075 

C2(N)  =  C22(N) 

SS8E076 

70 

C3(N)  =  C12IN1 

SS8E077 

RETURN 

SS8E078 

END 

SS8E079 

CC  =  00080 
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o  o  n  o 


c 


c 


c 


c 


SUBROUTINE  TABLE  SS8F000 

SS8FU01 

**  THIS  SUBROUTINE  SERVES  AS  A  CONTROL  PROGRAM  FOR  THE  CALCULATION  SS8F002 


♦♦  OF  THE 

TABLE  OF 

INTEGRALS. 

SS8F003 

SS8FU04 

DIMENSION  AL{1,2,6,3,10, 

3,10)  , 

EVAL(4,2, 

3,10,25) 

,  TIME(50) 

,SS8F005 

1 

$W(10,2,3,10,10) ,  P(ll,2,3,3flO) 

, 

ITIME( 12) 

SS8F006 

SS8F007 

COMMON 

/  ARRAYS 

/  P, 

AL, 

$W 

SS8F008 

COMMON 

/  VALUES 

/  EVAL 

SS8F009 

COMMON 

/  NUMBER 

/  Nl, 

NTUX, 

NTVX, 

NTWX, 

NTUY, 

SS8F010 

1 

NTVY, 

NTWY, 

NMODES, 

NSTRNG, 

NRING, 

SS8F011 

2 

NPNX, 

NPNY, 

NQTX, 

NQTY, 

N$(9), 

SS8F012 

3 

ITX, 

ITY 

SS8F013 

COMMON 

/  CNTROL 

/  N313), 

IBCX, 

IBCY, 

N4(7), 

INTPRT 

SS8F014 

COMMON 

/  GEDM 

/  ADUM(3), 

ALFAX, 

ALFAY, 

BETAX, 

BETAY 

SS8F015 

COMMON 

/  STIME 

/  TIME, 

ITIME 

SS8F016 

SS8F017 

CALL  STATUS  (  ITIME  ) 

SS8F0i8 

TIME{3) 

=  ITIME{8)/100. 

SS8FU19 

ET  =  TIME(3)  - 

TIMEIl) 

SS8F020 

IF  {  INTPRT  .EQ 

.  1  )  WRITE 

(6,10) 

ET 

SS8F021 

10  FORMAT 

POELAPSED  TIME  BEFORE  TABLE  GENERATION 

=  'F7.3) 

SS8F022 

MAX$X  = 

MAXO  ( 

NPNX,  NQTX, 

I  ) 

SS8F023 

MAXSY  = 

MAXO  ( 

NPNY,  NQTY, 

1  ) 

SS8F024 

MAX$XY 

=  MAXO  ( 

MAX$X,  MAX$Y  ) 

SS8F025 

MAXPl  = 

MAX$XY 

+  1 

SS8F026 

SS8F027 

J0CX  = 

IBCX 

SS8F028 

JBCY  = 

IBCY 

SS8F029 

CALL  INTEGL  (  ALFAX,  BETAX, 

JBCX, 

NTUX,  MAX$X, 

1,  ITX  ) 

SS8F030 

CALL  INTEGL  (  ALFAY,  BETAY, 

JBCY, 

NTUY,  MAX$Y, 

2,  ITY  ) 

SS8F031 

SS8F032 


190  CALL  STATUS  (  ITIME  )  SS8F033 

TIME(4>  =  ITIME(8)/100.  SS8F034 

ET  =  TIME(4)  -  TIME13)  SS8F035 

IF  I  INTPRT  .EQ.  1  )  WRITE  (6,200)  ET  SS8F036 

200  FORMAT  (‘OINTEGRAL  EVALUATION  TIME  =  'FT. 3)  SS8F037 

RETURN  SS8F038 

END  SS8FU39 
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OOOOOO  OOOOO  OOOOOOOOOOO 


SUBROUTINE  INTEGL  ( $ALFA» $BETA ,MNIJ »NTERMSf I POWER» I OEFNE, I Z )  SS8G000 

THIS  SUBROUTINE  COMPUTES  AND  RETURNSt  WITH  THE  AID  CF  'PPPS  SS8G001 

•SPECAL't  AND  ELASTCt  THE  INTEGRALS  AND  MODE  SHAPE  EVALUATIONS  F0RSS8G002 
ANY  OF  THE  BEAM  CONDITIONS  CONSIDERED.  THE  INPUT  IS  SALFAt  $BET A, SS8G003 
AND  MNIJ.  $ALFA,$BETA  ARE  USED  IN  SUBROUTINE  ELASTC  IF  AND  ONLY  SS8G004 
IF  MNIJ  IS  GREATER  THAN  6.  IF  MNIJ  IS  LESS  THAN  It  THE  INITIAL  SS8G005 
FREQUENCY  ESTIMATES  ARE  READ  INTO  EP(  ).  THESE  ESTIMATES  ARE  USEDSS8GOU6 
WITH  A  NEWTON-RAPHSON  ITERATION  ON  THE  APPROPRIATE  FREQUENCY  SS8G007 

EQUATION  TO  OBTAIN  ACCURATE  FREQUENCIES  AND  MODE  SHAPES.  THE  SS8G008 

RESULTS  ARE  RETURNED  THROUGH  THE  COMMON  BLOCK  ARRAYS.  THE  ROUTINE  SSaG009 
IS  IN  DOUBLE  PRECISION  . 

REVISED  FOR  CURVED  PANELS  -  8/69  SS8G011 

IMPLICIT  REAL*8( A-H,0-Z) f  INTEGER  (I-N)  SS8G012 

DIMENSION  C(4f4t3»10>,CLASTC(4fl0I»FFF{10)  SS8G013 


COMMON  /  BLOCK  /  AL( 1 »6» 3» 10» 3» 10) t  EVAL  I4f 3 f 10 *25 ) » 

1  EVQ( 4f 3»2»25) t  PZ( ll»3f 3f 10) t 

2  TH(  10t4f  4f3)  t  ALVA(  Ilf  ilt2)  »  PdltlOIt 

3  CE(4,10),  E(4,4),  EP(IO),  CN14),  CM(4) 


COMMON  /  ARRAYS 


COMMON 

COMMON 

COMMON 


VALUES 

NUMBER 

STFVAL 


COMMON  /  CNTROL  /  IFLAGOt  IFLAGB 
MNIJ  IS  A  FLAG  FOR  BOUNDARY  CONDITION 
MNIJ  =  0  FOR  FULL  CYLINDER 

MNIJ=1  FOR  FIXED  SIMPLE  BEAM,  =2  FOR  SIMPLE-SIMPLE,  -3  FOR  FIXED- 
FIXED,  =4  FOR  FIXED-FREE,  =5  FOR  SIMPLE  FREE,  AND  =  6  FOR  FREE- 
FREE.  GREATER  THAN  6  IS  USED  FOR  ELASTICALLY  RESTRAINED. 

PIE  =  3.1415926535898 
S3  =  DSQRT  (3. DO) 

IFIMNIJ  .GT.  6)  GO  TO  700 


SPI  11,2,3,3,10) ,  $AL{1,2,6, 

$W( 10,2,3,10,10) 
$EVAL(4,2,3,10,25) 

N0UM<8),  NSTRNG,  NRING 
$ESV(10,100),  SESWIlOflOO), 
$ERUI10,50),  $ERW110,50), 

$STRNG(100),  $RINGS(50) 
IFLAGO,  IFLAGB 


$AL{1 ,2,6,3,10,3,10), 


tESDWdOflOO), 
$ERCWd0,50) , 


ASH=  0  ,  IJKLM=-1, IKJ=1  FC 
ASH=-1., IJKLM=  0,IKJ=1  FC 
ASH=-l. , IJKLM=+1, IKJ=3  FC 
ASH=+1., IJKLM=  0,IKJ=1  FC 
ASH=  0  , IJKLM=-2, IKJ=2  FC 
ASH=  0  , IJKLM=-3, IKJ=l  FC 
ICYL=0 

IFCMNI J.NE.O)  GO  TO  2999 

CYLINDER 

ICYL=1 

ASH  =  0. 

IJKLM  =  -1 
IKJ  =  1 
1500  =  2 

IF  <  IFLAGB  .NE.  0  )  GO  ^ 
EPd)  =  IZ  *  6.28319 
DO  3000  I=2,NTERMS 
EP{  I )  =  EP(  I-l)  +  6.283 
GO  TO  3009 

EP(  1)  =  IZ  *  3.14159 

DO  2998  I=2,NTERMS 

EP(  I)  =  EP( I-l)  +  3.14159 


SIMPLE-SIMPLE  BEAM 
FIXED-FIXED  BEAM 
FREE-FREE  BEAM 
FIXED-FREE  BEAM 
SIMPLE-FREE  BEAM 
FIXED-SIMPLE  BEAM 


2997 


SS8G010 

SS8G0d 

SS8G012 

SS8G013 

SS8G014 

SS8G015 

SS8G016 

SS8G017 

SSSGOIB 

SS8G019 

SS8G020 

SS8G021 

SS8G022 

SS8G023 

SS8G024 

SS8G025 

SS3G026 

SS8G027 

SSdG028 

SS8G029 

SS8G03Q 

SS8G031 

SS8G032 

SS8G033 

SS8G034 

SS3G035 

SS8G036 

SS8G037 

SS8G038 

SS3G039 

SS8G040 

SS8G041 

SS8G042 

SS8G043 

SS3G044 

SS8G045 

SS8G046 

SS8G047 

SStfG048 

SS8G049 

SS8G050 

SS8G051 

SS8G052 

SS8G053 

SS8G054 

SS8G055 
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GO  TO  3009 

2999  IF(MNIJ,NE.l)  GO  TO  3001 
C  CLAMPED  -  SIMPLE 

ASH=0. 

IJKLM=  -3 
IKJ  =  1 

EP(1)  =  ^  1.)  PIE  /  4. 

GO  TO  3007 

3001  IF(MNIJ,NE.2)G0  TO  3002 

C  SIMPLE  -  SIMPLE 

ASH=0* 

IJKLM=-1 

IKJ=1 

EP(1)  =  IZ  «  3.14159 
GO  TO  3007 

3002  IFCMNIJ.NE.3)G0  TO  3003 

C  CLAMPED  -  CLAMPED 

ASH^~1. 

IJKLM=0 

IKJ^l 

EP{  1)  =  (2.*IZ  1.)  ♦  PIE  /  2. 

GO  TO  3007 

3003  IF(MNIJ.NE.4)  GO  TO  3004 

C  CLAMPED  -  FREE 

ASH=1. 

IJKLM^O 

IKJ=1 

EPC  1)  =  (2.*IZ  PIE  /  2. 

GO  TO  3007 

3004  IF(MNIJ.N£.5)G0  TO  3005 

C  SIMPLE  -  FREE 

ASH=0. 

IJKLM^-2 

IF  {  IZ  .NE.  1  )  GO  TO  3105 
IKJ=  2 
EP(1)^  3. 

EP(2)=  3.93 
GO  TO  3007 
3105  IKJ  =  1 

EP(1)  =  (  4.«IZ  -  3.  )  ♦  PIE  /  4. 
GO  TO  3007 

3005  ASH=  -1. 

C  FREE  -  FREE 

IJKLM=  1 

IF  (  IZ  .NE.  0  )  GO  TO  3100 

IKJ=3 

EP(  1)  =  3. 

EP(2I:=2. 

EP(3)=4.73 
GO  TO  3007 
3100  IKJ  =  1 

EP(1)  =  (  2.«IZ  -  1.  )  ♦  PIE  /  2. 

3007  I500:=IKJ  +  1 

DO  3008  1=1500, NTERMS 

3008  EPII)  =  EP(  I-U  +  3.142 

C  COMPUTE  ACCURATE  FREQUENCIES  FROM 


SS8G056 

SS8G057 

SS8G058 

SS8GU59 

SS8GG50 

SS8G06i 

SS8G062 

SS8G063 

SS8G064 

SS8G065 

SS8G066 

SS8G067 

SS8GU68 

SS3G069 

SS8G070 

SS8G07I 

SS8G072 

SS8G073 

SS8G074 

SS8G075 

SS8G0/6 

SS8G077 

SS8G07d 

SSdG079 

SS8G080 

SS8G081 

SS8G082 

SS8G063 

SS8G084 

SS8G085 

SS8G086 

SS8G087 

SS8G0B8 

SS8GQ39 

SS8G090 

SS8G091 

SS8G092 

SS8G09i 

SS8G094 

SS8G095 

SS8GU96 

SS8G097 

SS8G098 

SS8G099 

SS8G100 

SS8G101 

SS8G102 

SS8Gi03 

SS8G104 

SS8G105 

SS8G106 

SS8G107 

SS8G108 

SS3Gi09 

SS8G110 

HERE  TO  200  SS8Glii 
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3009 

CONTINUE 

SS8G112 

DO  200  I=IKJ,NTERMS 

SS8G113 

DO  200  J=l,8 

SS8G114 

0C=DC0S(EP(  D) 

SS6G115 

DS=OSIN(EPm) 

SSaGil6 

DX=DEXP(EP( I ) ) 

SS8G117 

DCH-.5«(DX  +  U/DX) 

SS8G118 

DSH=.5*{DX-1./DX) 

SS8G119 

IF(  IJKLM.LT.OI  GO  TO  450 

SS8G120 

FX=OC*OCH+ASH 

SS8G121 

FPX=-OS«=OCH+DC*OSH 

SS8G122 

GO  TO  451 

SS8G123 

450 

IF(  IJKLM.EO.-DGO  TO  452 

SS8Gi24 

FX=DS/OC  -  DSH/DCH 

SS8G125 

FPX=1./0C/0C  -l./DCH/DCH 

SS8G126 

GO  TO  451 

SS8G127 

452 

FX=  OS 

SS8G128 

FPX=DC 

SS8G129 

451 

CONTINUE 

SS8G130 

EP( I )=EP( I )-FX/FPX 

SS8G131 

200 

CONTINUE 

SSaG132 

C 

COMPUTE  MODE  SHAPE  CONSTANTS  FROM  HERE  TO  1 

SS8G133 

DO  1  N=1,NTERMS 

SS8G134 

SN=OSIN(EP(N) ) 

SS8G135 

CS=OCOS(EP(N)» 

SS8G136 

DX=DEXP(EP(N)) 

SS8G137 

SH=.5*I0X-1./0X) 

SS8G138 

CH=.5*(0X*1./DX» 

SS8Gli9 

IF( ICYL.EQ. 1 »  GO  TO  9450 

SS8G140 

IF(  IJKLM.lt. 0)G0  TO  460 

S58G141 

IF( IJKLM.GT.O)  GO  TO  351 

SSaG142 

C 

CLAMPED  -  CLAMPED 

SS8G14i 

c 

CLAMPED  -  FREE 

SS8G144 

C(  lt4,  3,N)  =  ICH*ASH4-CS)/(  SN*ASH+SH)*ASH 

SS8G145 

C(1,3,3,N)=-C(1,4,3,N) 

SS8G146 

C(1,1,3,N)=  1. 

SS8G147 

C{1,2,3,N)=  -1. 

SS8G148 

GO  TO  1 

SS8G149 

c 

FREE  -  FREE 

SS8G150 

351 

C(1,1,3,N)=  1. 

SS8G151 

C{1,2,3,N)=  1. 

SS8Gi52 

C(lt3,3tN)=  {-CS+CH)/(SN-SH) 

SS8G133 

C( 1,4,3, N)=  C(1,3,3,N) 

SS8G154 

GO  TO  1 

SS8G155 

9450 

C(l,2,3,Ni=  DSQRTi2.D0) 

SS8G156 

C(1,1,3,N)=  0. 

SS8G157 

C(1,3,3,N)=  0. 

SS8G158 

C(1,4,3,N»=  0. 

SS8G159 

GO  TO  1 

SS8G160 

460 

IFIIJKLM  .EQ.-l)  GO  TO  453 

SS8G161 

IF{  IJKLM.EQ.-2)G0  TO  454 

SS8G162 

C 

CLAMPED  -  SIMPLE 

SSdG163 

C(1,1,3,N)=  1. 

SS8G164 

C(1,2,3,N)=  -1. 

SS8G165 

C(1,3,3,N)=  (CS-CH)/( SH-SN) 

SS8GI&6 

CI1,4,3,N)=  -C(1,3,3,N) 

SS8G167 
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GO  TO  1 

SS8G168 

c 

SIMPLE  -  FREE 

SS8G169 

454 

C(l,l,3,N)=  0. 

SS8G170 

C(lf2,3,N)=  0. 

SS8G171 

C(l,4,3,N)=  2.*SH/(-SN+SH) 

SS8G172 

C(lf3,3,N)=  C(1,4»3,N)-2.D0 

SS8G173 

AV=  DSQRTI  CJl,^t3,N)  ♦  C(lf3,3,N)  1 

SS8G174 

C(1,4,3,N)=  C( 1,4,3, N)/AV 

SS8G175 

C(1,3,3,N)=  C( 1,3,3, N)/AV 

SS8G17b 

GO  TO  1 

SS8G177 

C 

SIMPLE  -  SIMPLE 

SS8G178 

453 

C(1,1,3,N)=  0. 

SS8G179 

CI1,2,3,N)=  0. 

SS8G180 

C(l,3,3,N»=  0. 

SS8G181 

C(1,4,3,N)=  DSQRT(2.D0) 

SS8G182 

1 

CONTINUE 

SS8G183 

GO  TO  701 

SS8G184 

C 

ELASTIC  RESTRAINT 

SS86185 

700 

ALFA=  $ALFA 

SS8G186 

8ETA=  $BETA 

SS8G187 

C 

FREQUENCIES  AND  SHAPE  COEFFICIENTS  ARE  COMPUTED  IN  ELASTC. 

SS8G183 

CALL  ELASTC  I  CL AS TC , ALF A , BE TA , NTERMS ) 

SS8G189 

00  7000  J=l,4 

SS8G190 

00  7000  N=l, NTERMS 

SS8G19i 

7000 

C(1,J,3,N)  =  CLASTC(J,NI 

SS8G192 

701 

CONTINUE 

SS8G193 

C 

THE  COEFFICIENTS  OF  THE  'NORMALIZED*  DERIVATIVES  ARE  PUT  IN  C{ 

)  SS8G194 

INIJ=  MNIJ 

SS8G195 

MNIJ=  IDEFNE 

SS8G196 

ID=IDEFNE 

SS8G197 

DO  2  N=l, NTERMS 

SS8G198 

C(2,1,3,N)=  C(1,3,3,N) 

SS8Gly9 

C(2,2,3,N>=  C(1,4,3,N) 

SS8G200 

C(2,3,3,N)=  C(1,1,3,N) 

SS8G201 

C(2,4,3,N)=-C(1,2,3,N) 

SS8G202 

C(3,1,3,N»=  C(1,1,3,N) 

SS8G203 

C(3,2,3,N)=-CI 1,2, 3, N) 

SS8G204 

C{3,3,3,N)=  C(1,3,3,N) 

SS8G205 

2 

C(3,4,3,N)=-C( l,4,3,N) 

SS8G20t. 

IFI IDEFNE. EQ. 2)  GO  TO  9910 

SS8G207 

DO  9900  1=1,4 

SS8G208 

DO  9900  N=l, NTERMS 

SSaG209 

C(l,I,l,N)  =  C(2,I,3,N)  ♦  EP(N) 

SS8G210 

9900 

C(l,I,2,N)=C(l,I,3,N) 

SS8G211 

GO  TO  9920 

SS8G212 

9910 

DO  9915  1=1,4 

SS8G213 

DO  9915  N=l, NTERMS 

SS8G214 

C(1,I,1,N)=C(1,I,3,N) 

SS8G215 

9915 

C(1,I,2,N)  =  C{2,I,3,N)  *  EP(N) 

SS8G216 

9920 

DO  9930  1=1,2 

SS8G217 

DO  9930  N=l, NTERMS 

SS8G218 

C(2,l, I,N)=  C(l,3, I,N) 

SS8G219 

C(2,2,I,N)=  C(1,4,I,N) 

SS8G220 

C(2,3,I,N)=  C(1,1,I,N) 

SS8G221 

C(2,4, I,N)=-CI 1,2, I,N) 

SS8G222 

C13,1,I,N)=  C(1,1,I,N) 

SS8G223 
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C(3,2»1,N)=-C(1,2,I,N) 

SS86224 

C(3,3,I,N)=  C(1,3,I,N) 

SSaG225 

9930 

C( 3,4, I ,N)=-C{ 1,4, I,N) 

SS8G226 

FACTORIAL  GENERATION 

SS8G227 

IP0WE2  =  IPOWER+l 

SS8G228 

DO  2001  I=1,IP0WE2 

SS8G22y 

00  2002  L=l, I 

SS8G230 

ALVA( I,L,2)=0. 

SS8G231 

J=I-1 

SS8G232 

K=  I-L 

SS8G233 

DFAC  =  1. 

SS8G234 

FAC=1. 

SS8G235 

IFIJ.LE.DGO  TO  2003 

SS8G236 

DO  2004  JJ=2,J 

SS8G237 

AMTP=  JJ 

SS8G238 

2004 

FAC=  FAC*AMTP 

SS8G239 

2003 

IFtK.LE.DGO  TO  2005 

SS8G240 

DO  2006  KK=2,K 

SS8G241 

AMTP=  KK 

SS8G242 

2006 

DFAC  =  AMTP*DFAC 

SS8G243 

2005 

ALVAI  I,L,  1)=  ((-!.)**( L  +  U  )*FAC/DFAC 

SS8G244 

2002 

CONTINUE 

SS8G243 

2001 

ALVAI I, I,2)=ALVA(  1,1,1) 

SS8G246 

PI= 3. 1415926535898/2. 

SS8G247 

DO  1001  IUVW=1,3 

SS8G248 

DO  1001  JUVW=1,3 

SS8G249 

DO  1001  M=1,NTERMS 

SS8G250 

EPM  =  EP(M) 

SS8G251 

DO  1001  N=1,NTERMS 

SS8G252 

EPN=  EPiN) 

SS8G253 

0MEGA1=  EPM+  EPN 

SS8G254 

0MEGA2=  EPN-  EPM 

SS8G255 

EX1=  .25*0EXP(0MEGA1) 

SS8G236 

EMX1=1./EX1/16. 

SS8G257 

EX2  =.25*DEXP(0MEGA2) 

SS8G258 

EMX2=1./EX2/16. 

SS8G259 

SNl  =  DSIN(0MEGAl»/2. 

SS6G260 

SN2  =  0SIN(0MEGA2)/2. 

S  S  dG26 1 

CS1=DC0S(0MEGA1 )/2. 

SS8G262 

CS2=0C0Sl0MEGA2)/2. 

SS8G263 

FACT0R=1. 

SS8G264 

DO  1002  I=1,IP0WER 

SS8G265 

FACTOR=  FACTOR*! 

SSaG266 

Oil  =  (OMEGAl)**! 

SS8G267 

FFF(I)  =  EXI/OII 

SS8G268 

Tlll=  0.0 

SS8G269 

T112=  (  (-1.  )**n*EMXl/01I 

SS8G27a 

T113=  a.-(-l.)**(l+l))/2./01I  /2. 

SSaG271 

1003 

T12i=0. 

SS8G272 

T122=<DSIN( I*PI )*SN1  +DC0S( I*PI >*CS1) /01 1 

SS8G273 

T123=  DCOSI I*PI )/2./01I 

SS8G274 

IFIM.EQ.N)  GO  TO  1004 

SS8G275 

021=  (0MEGA2)**I 

SS8G276 

T211=  EX2/02I 

SS8G277 

T212=  ( (-1. »**I )*eMX2/02I 

SS8G278 

T213=  I l.-(-l.)**( I+l) )/4./02I 

SS8G279 
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IF(DA8S(T21l).GE.  0ABS(T212))  GO  TO  1005 
TX15=  T211 
T21l=  T212 
T212=  TX15 

1005  T221=  0, 

T222=  (OSINi  I*PI  )*SN2  *■  OCOS<  I*Pl  )*CS2] /□2I 
T223=  DCOSC I*PI )/2./02I 
GO  TO  1006 
1004  T211=  0. 

T221=  0. 

1212=  .5/FACTOR 
T222=  T212 
T213=0. 

T223=  0. 

1006  TH(I, 1,1,1)  =  Till  +  T211 
TH(I,1,1,2)  =  T112  +  T212 
TH( 1,2, 2,1)  =  T121  +  T221 
TH( I,2,2,2)  =  T122  ♦  T222 
TH( 1,3, 3, 1)  =  Till  -  T211 
TH(I,3,3,2)  =  T112  -  T212 
TH( I, 4, 4,1)  =-T121  +  T221 
TH(I,4,4,2)  =-T122  +  T222 
TH( [,1,1,3)  =  T113  +  T213 
TH(I,2,2,3)  =  T123  +  T223 
TH( 1,3, 3,3)  =  T113  -  T213 

1002  TH{I,4,4,3)  =-T123  +  T223 
1FLAG=  -1 

1007  EPSAVE  =  EPN 
EPN  =  EPM 
EPM  =  EPSAVE 
OMEGAl  =EPM+EPN 
0MEGA2  =EPN-EPM 

EX1=  .25*0EXP(0MEGA1) 

EMXl=  1./EX1/16. 

EX2  =  0EXP(0MEGA2)/4. 

EMX2=  1./EX2/16. 

SN1=  DSIN(0MEGAl)/2. 

SN2=  0SlN(0MEGA2)/2. 

CS1=  DC0S(0MEGAl)/2. 

CS2=  DC0S(0MEGA2)/2. 

0EL0=  EPM*EPM<-  EPN+EPN 
DELI1=  1. 

DEL  1 2=  0. 

EPEPN  =  DEXP(EPN)/2. 

EMEPN  =  1./EPEPN/4. 

SNEPM=  DSIN(EPM) 

CSEPM=  DCOStEPM) 

DO  1008  1=1, [POWER 

DELIIS  =  EPN*0ELI1  -  EPM+DELI2 

DEL  12  =  EPM*DELI1  ♦  EPN+0ELI2 

DELIl  =  DELIIS 

Oil  =  (OMEGAl)**! 

DELOI  =(DELO)**I 
TH(I,3,1,1)  =  0.0 

TH(I, 3, 1,2)  =  ( (-!.)**{  I  +  l) )*EMX1/01I 
TH[ I ,3, 1,3)=  ( l.-(-l. )**[ )/2./01I/2. 
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TH(I,4,2,l)  =0. 

TH(I»4,2,2)  =  (-DSIN(  I*Pn*CSl  ♦0C0S(  I*PI  )*SN1 ) /01  I 
TH(I,4,2,3)  =  -DSIN( I*PI )/2./01I 

TH(I,l,2,l)  =  EPEPN/DEL0I*(DELI1*CSEPM  +  DELI2*SNEPMJ 
THlI,l,2f2>  =  EMEPN/DEL0I*( ( (-1. )*♦!) ♦DELIl*CSEPM 
1  ♦( (-1. )**( I+l) )*DELI2*SNEPM) 

TH(I,1,2,3»  =  0ELIl/2./DEL0I*( )♦*! ) 

TH(I,3,2,3)  =  DELIl/2./DEL0I*(l.-(-l. )**n 
TH(I,3,2,1)  =  TH( I, 1,2,1) 

TH{1,3,2,2)  =-TH( I,l,2,2) 

TH(I, 1,4,1)  =  EPEPN/DEL0I*<DELI1*SNEPM  -DELI2*CSEPM) 

TH(I,1,4,2)  =  EMEPN/0EL0I*( ( (-1. )**I)*D£LI2*CSEPM 
1  +( (-1. )♦*! )*0ELI 1+SNEPM) 

THU, 1,4,3)  =  0ELI2/2./DEL0I*l-l.+i-l.  )**I) 

TH(I,3,4,3)  =  0ELI2/2./DEL0I*(-l.-(-l. )♦*!) 

TH(I,3,4,1)=  TH(I, 1,4,1) 

TH(  1,3,4,  2)=-THn  ,1,4,2) 

IF(M.EQ.N)  GO  TO  1009 
02I=(0MEGA2)<'*I 
TBIG  =EX2/02I 

TSMALL=  ( (-1, )**( 1+1) )*EMX2/02I 

TH(I,3,1,3)  =  TH(I,3,1,3)  +  ( l.-(-l. ) ** I ) /2. /02  1/2 . 

TH(I,4,2,2)  =  Tri(I,4,2,2)+  (-DSI  N(  I  *PI )  *CS2*-0C0S(  I  *PI )  *SN2 ) /02 1 

TH(I,4,2,3)  =  TH(I,4,2,3)  -DS I N( I ^P I ) /2 . /02I 

IFl DABS(TBIG) .GE.DABSITSMALL) )G0  TO  1010 

TX15  =TBIG 

TBIG  =  TSMALL 

TSMALL  =  TX15 

1010  TH(I,3,l,l)  =  TH(I,3,1,1)  *  TBIG 
TH(I,3,1,2)  =  TH{I,3,1,2)  +  TSMALL 

1009  CONTINUE 
1008  CONTINUE 

IFdFLAG.GT,  0)  GO  TO  1011 
IFLAG  =  +1 
on  1012  I=1,IP0WER 
DO  1012  J=l,3 
TH(I,1,3,J)  =  TH( 1,3, 1,J) 

TH( 1,2,4, J)=  THI I ,4,2,J) 

TH( 1,2, 1, J>=  TH( I ,1,2,3) 

THI 1,2, 3, J )=  THI I ,3,2,3) 

THU, 4,1,3)=  THII,1,4,3) 

1012  THU, 4, 3,3)=  THU, 3, 4, 3) 

GO  TO  1007 

1011  CONTINUE 

r  THI I, K, 3)  ARE  NOW  STORED 

DO  1001  K=l,6 
IFIK-2)25,26,27 

27  IFtK-4)28,29,30 
30  IFIK-6)31,32,32 

25  NN=1 
MM=1 

GO  TO  6 

26  NN=2 
MM=2 

GO  TO  6 

28  NN=3 
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MM=3 

SS8G392 

GO  TO  6 

SS8G393 

29 

NN=2 

SS8G394 

MM=l 

SS8G395 

GO  TO  6 

SS8G396 

31 

NN=3 

SS8G397 

MM=1 

SS8G398 

GO  TO  6 

SS8G399 

32 

NN=3 

SS8G400 

MM=2 

SS8G401 

6 

00  7  J=l,4 

SS8G402 

CN{J )=C(NN, J, lUVW.N) 

SS8G403 

7 

CM( J)=C(MM, JtJUVW.M) 

SS8G404 

EXYZ  =  (EPN**(NN-1) )*IEPM**CMM-l) » 

SS8G405 

00  a  J=l,4 

SS8G406 

DO  8  1=1,4 

SS8G407 

8 

E(J,I)=  CN( JI*CM(  n*EXYZ 

SS8G40a 

SAVEIT=  (CN(1»+CN(3) J*(CM(l)*CMC3) >*EXYZ 

SS8G409 

I  =  1 

SS8G410 

AL(  I,K, lUVW.N, JUVW,M)  =  0. 

SS8G4il 

SAVE1=  0. 

SS8G412 

SAVE2=  0, 

SS8G413 

SAVE3=  0, 

SS8G4i4 

SAVE4=0. 

SS8G415 

00  1114  L=1,I 

SS8G416 

SAVEl  =  SAVEl  +  SAVEIT*ALVA( I ,L,1 )*FFF(L) 

SS8G417 

DO  1114  1T=1,4 

SS3G4ia 

DO  1114  IU=1,4 

SS8G419 

SAVE4=  SAVe4  ( IT, lU )*ALVA ( I ,L , 1 ) ♦TH( L , I T, lU, 1 ) 

SS8G420 

SAVE2=  SAVE2  ♦£ ( I T , lU ) *AL VA ( I , L , 1 ) *TH ( L , I T , I U,2 ) 

SS8G421 

1114 

SAVE3=  SAVE3  +E ( I T , lU )*AL VA { I , L , 2 ) *TH( L , I T , I U , 3 ) 

SS8G422 

1014 

AL(  I,K,  IUV»<,N,JUVW,M)=  SAVEl  +  SAVE2  -  SAVE3  +  SAVE4 

SS8G423 

IF  (  K  .LE,  2  )  KK=K 

SS8G424 

IF  I  K  .EQ.  3  )  GO  TO  1001 

SS8G425 

IF  (  K  .EQ.  4  )  KK=3 

SS8G426 

IF  (  K  .GE.  5  )  GO  TO  1001 

SS8G427 

IF(  IUVW.NE.3)  GO  TO  1001 

SSaG428 

IF( JUVW.NE.3)  GO  TO  1001 

SS8G429 

DO  6000  1  =  1,  IPOWER 

SS8G430 

$W( I, I0,KK,N,M)  =  0. 

SS8G431 

SAVEl  =  0. 

SS8G432 

SAVE2  =  0. 

SS8G433 

SAVE3  =  0. 

SS8G434 

SAVE4  =  0. 

SS8G435 

DO  5000  L=l, I 

SS8G436 

SAVEl  =  SAVEl  ♦  SAVEIT  ♦  ALVAIUL,!)  ♦  FFF(L) 

SS8G437 

DO  5000  IT=1,4 

SS8G438 

00  5000  IU=1,4 

SS8G439 

SAVE4  =  SAVE4  ♦  E(IT,IU)  ♦  ALVA(I,L,1>  ♦  THl L , I T , I U , 1 J 

SS8G440 

SAVE2=  SAVE2  *■  E(IT,IU)  ♦  ALVAtI,L,l)  *  TH(  L,  IT,  IU,2) 

SSdG441 

5000 

SAVE3  =  SAVE3  +  E(IT,IU)  *  ALVA(I,L,2)  ♦  TH ( L , I T, I U ,3 ) 

SS8G442 

6000 

$W( I, ID,KK,N,M)  =  SAVEl  +  SAVE2  -  SAVE3  +  SAVE4 

SS8G443 

1001 

CONTINUE 

SS8G444 

C 

THE  P  INTEGRALS  ARE  NOW  EVALUATED,  AND  ALSO  ANY  SPECIAL  CASES. 

SS8G445 

IP02=  IPOWER+1 

SS8G446 

IN  =  1 

SS3G447 
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IF  (  INIJ  .EQ.  5  .AND.  IZ  .EQ.  I  )  IN  =  INIJ  -  3  SS8G448 

IF  I  INIJ  .EQ.  6  .AND.  IZ  .EQ.  0  )  IN  =  INIJ  -  3  SS8G44y 

DO  all  NUVW=1»3  SS8G430 

DO  806  1=1,4  SS8G451 

DO  806  J=1,NTERMS  SS8G462 

806  CE( I,J)=C( 1, I,NUVW,J)  SS8G453 

CALL  PPP  ( INfNTERMStlPOWER, lOtNUVW,  1  )  SS8G454 

DO  807  I=l,IP02  SS8G456 

00  807  J=1,NTERMS  SS8G456 

IF  (  IN  .EQ.  1  )  GO  TO  807  SS8G457 

PZ{I,l,NUVW,J)  =  P(I,J)  SS8G458 

807  $P( I , ID, 1,NUVW, J )  =  P{I,J)  SS8G459 

DO  808  1=1,4  SS8G460 

DO  808  J=1,NTERMS  SS8G46i 

808  CEI I, J»=C(2, I,NUVW,J)*EP(  J)  SS8G462 

CALL  PPP  IIN.NTERMS, IPOWERtIDfNUVW,  2  )  SS8G463 

DO  809  I=1,IP02  SS8G464 

DO  809  J=1,NTERMS  SS8G465 

IF  (  IN  .EQ.  I  )  GO  TO  809  SS8G466 

PZI I,2,NUVW,J)  =  P(I,J)  SS8G467 

809  $P{ I, ID,2,NUVW, J)  =  P(I,J)  SS8G468 

DO  810  1=1,4  6S8G469 

DO  810  J=1,NTERMS  SS8G470 

810  CE( I, J)=C( 3, I,NUVW, J)*EP( J)*EPI J)  SSaG471 

CALL  PPP  {IN,NTERMS, IP0W6R,ID,NUVW,  3  1  SS8G472 

DO  811  I=1,IP02  SS8G473 

DO  811  J=1,NTERMS  5586474 

IF  (  IN  .EQ.  1  )  GO  TO  811  558G475 

PZI I ,3,NUVW, J)  =  P(I,J)  SS8G476 

811  $P( I , ID, 3,NUVW, J )  =  P(I,J)  5S8G477 

IF  I  IN  .EQ.  1  )  GO  TO  805  5S8G478 

CALL  SPECAL  ( IPOWER,NTERMS, IN I J , I DEFNE »  558G479 

IN=IN-1  5586480 

805  1=1  5580431 

DO  33  1UVW=1,3  5S8G482 

DO  33  JUVW=1,3  5S8G483 

DO  33  K=l,6  5586484 

DO  33  N=1,NTERM5  5586485 

DO  33  M=1,NTERM5  5S8G486 

$AL( I,MNIJ,K, IUVW,N,JUVW,M)=AL( I , K , lUVW , N , JUVW , M)  5580487 

33  CONTINUE  553G488 

C  THE  MODE  SHAPES  AND  ITS  DERIVATIVES  ARE  EVALUATED  AT  25  POINTS.  SS8G489 

DO  707  N=l,3  SS8G490 

DO  40  J=1  ,NTERMS  SS8G491 

C(4,1,N,J)=C(3,3,N,J)  SS8G492 

C(4,2,N,J )=C(3,4,N, J)  SS8G493 

C(4,3,N, J »=C(3, 1,N, J)  SS8G494 

C(4,4,N,J)=-C(3,2,N,J)  SS8G498 

DO  2750  1  =  1,4  SS8G49t, 

SAVEl  =  C(I,1,N,JI  SS8G497 

C(I,l,N,JJ  =  Cn,l,N,J)+Cn,3,N,J)  55  80498 

2750  C( I,3,N,J)=C(I,3,N,J)  -  SAVEl  5586499 

DO  40  L=l,25  SS8G500 

Yu=L-1  SS8G501 

YU=YU/24.  SS8G502 

AA=DEXP(EP I J »*YU)  SS8G5U3 
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CN(1)=.5*(AA  ) 

CN(3I=.5*(  -l./AA) 

CN(2)=DC0S( EPC J )*YUJ 
CN(4)=DSIN(EP( J)*YU) 

DO  40  1=1,4 

EVAL ( I,N, J,L)=O.DO 

00  40  K=l,4 

40  EVAL( I,N, J,L)=EVAL( I,N,J,L>*CN(K»*C{I,K,N,J)0(EP(J)**{ I-l ) ) 
IF  (  INIJ  .EQ.  5  .AND.  IZ  .EQ.  1  )  GO  TO  816 

IF  (  INIJ  .EQ.  6  .AND.  IZ  .EQ.  0  )  GO  TO  816 
GO  TO  815 

816  00  817  J=1,IN 
DO  817  L=l,25 
DO  817  1=1,4 

817  EVALn,N,J,L)  =  EVQ(I,N,J,L) 

815  CONTINUE 

41  CONTINUE 

DO  707  K=1,NTERMS 
DO  707  L=l,25 
on  707  1=1,4 

707  $EVAL( I,NNIJ,N,K,L)=EVAL(I,N,K,L) 

IF  I  MNIJ  .EQ.  1  )  GO  TO  59 
IF  (  NSTRNG  .EQ.  0  )  GO  TO  90 
DO  50  L=l, NSTRNG 
DO  50  J=1,NTERMS 
Y  =  SSTRNGIL) 

AA  =  OEXPIEP{J»*Y) 

CNIl)  =  .S’t'AA 
CN('J)  =  -.5/AA 
CN(2)  =  DCOSIEPI J)*Y) 

CN(4)  =  OSINIEPI J)*Y) 

$ESV(J,L)  =  0. 

$ESW{J,L)  =  0. 

$ESOW(J,L)=  0. 

DO  50  K=l,4 

$ESV(J,L)  =  $ESV(J,L)  ♦  CNIK)  ♦  C(1,K,2,J) 

$ESW{J,L)  =  $ESWIJ,L)  ♦  CNIK)  *  C(1,K,3,J) 

50  $FSDW(J,L)=  $ESDW(J,L)+  CNIK)  *  C 1 2  ,K ,3 , J ) ♦EP IJ) 

IF  I  INIJ  .NE.  5  )  GO  TO  52 

IF  I  IZ  .NE.  1  )  GO  TO  52 
DO  51  L=l, NSTRNG 
SESVtUL)  =  S3 
$ESWI1,L)  =  S3  *  SSTRNGIL) 

51  $ESDWI1,L)  =  S3 
GO  TO  90 

52  IF  I  INIJ  .NE.  6  )  GO  TO  90 
IF  I  IZ  .NE.  0  )  GO  TO  90 
DO  53  L=l, NSTRNG 
$ESVll,L)  =  0. 

$ESVI2,L)  =  -2.*S3 
$ESWI1,L)  =  1. 

$ESWI2,L)  =  S3  ♦  I  1.  -  2.  ♦  SSTRNGIL)  ) 

$ESDWI1,L)=  0. 

53  $ESDWI2,L)=  -2.*S3 
GO  TO  90 

59  IF  I  NRING  .EQ.  0  )  GO  TO  90 
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DO  60  L=ltNRING  SS8G560 

DO  60  J=1,NTERHS  SS8G561 

X  =  $RINGS{L)  SS8G562 

AA  =  OEXP(EP(J)*X)  SS8G563 

CN(l)  =  .5*AA  SS8G564 

CNOJ  =  -.5/AA  SS8G565 

CN(2)  =  DC0SIEP( J »*X)  SS3G566 

CN(4I  =  DSIN<EP( J)*X)  SS8G567 

$ERU(JtL)  =  0.  SS8G56d 

SERW(J,L)  =  0.  SS8G569 

$ERDW(JtL)  =  0.  SS8G570 

00  60  K=l,4  SS8G571 

$ERUJJ,L)  *  $ERU(J,L)  +  CN(K)  ♦  C(l,K,l,J)  SS8G572 

$ERWIJ,L)  =  $ERW(JtL)  +  CNIK)  *  C{1,K,3,J)  SS8G573 

60  $ERDWtJ,L)=  $ERDWU,L)+  CNIK)  ♦  CI2,K,3  ,  JJ^EPI  J)  SS8G574 

IF  I  INIJ  .NE.  5  )  GO  TO  62  SS8G575 

IF  I  IZ  .NE.  1  )  GO  TO  62  SS86576 

DO  61  L=1,NR1NG  SS8G577 

$ERUa»L)  =  S3  SS8G578 

$ERW(1,L)  =  S3*$RINGS(L)  SS8G579 

61  $ERDW(1,L)=  S3  SS8G580 

GO  TO  90  SS8G581 

62  IF  (  INIJ  .NE.  6  )  GO  TO  90  SS8G582 

IF  (  IZ  .NE.  0  )  GO  TO  90  SS8G583 

DO  63  L=1,NRING  SS8G5a4 

$ERU{1*L)  =  0.  SS8G585 

$ERUI2,L)  =  -2.*S3  SS8G586 

$ERWI1,L)  =  1.  SS8G587 

$ERW(2,L)  =  S3*l l.-2.*$RINGSIL) )  SS8G588 

$ERDW(l,L)=  0.  SS8G589 

63  $ER0W(2,L)=  -2.*S3  SS8G590 

90  CONTINUE  SS8G591 

RETURN  SS8G592 

END  SS8G593 

CC  =  00594 
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SUBROUTINE  ELASTC ( RETURN , ALFA tBETA , N)  SS8H000 

THIS  SUBROUTINE  COMPUTES  THE  FREQUENCIES  (STORED  IN  EP(  I  I  AND  SSShOOl 

MODE  SHAPES  FOR  A  BEAM  WITH  ELASTIC  MOMENT  RESTRAINT  AT  BOTH  ENDS.SS8H002 

THE  MODE  SHAPES  ARE  DEFINED  BY  MEANS  OF  FOUR  CONSTANTS  FOR  EACH  SS8Hv)03 

FREQUENCY,  WHICH  ARE  RETURNED  IN  THE  ARRAY  NAMED  RETURN!  ).  THE  SS8H004 

RESTRAINT  IS  SPECIFIED  IN  TERMS  OF  THE  INPUT  QUANTITIES  ALPHA  AND  SS8H005 

BETA.  AT  THE  ZERO  END,  THE  RESTRAINED  BOUNDARY  CONDITION  IS  THAT  SS8H006 

THE  SLOPE  =  ALFA*CURVATURE.  AT  THE  OTHER  END,  THE  CONSTANT  OF  SS8H00I 

PROPORTIONALITY  IS  -BETA.  THE  ROOTS  OF  THE  CHARACTERISTIC  SS8H008 

EQUATION  ARE  FOUND  IN  DOUBLE  PRECISION  USING  AN  INTERVAL  HALFING  SS8H009 

TECHNIQUE.  THE  INTERVAL  IS  HALVED  70  TIMES,  SO  THAT  THE  FINAL  SS8H010 

INTERVAL  IS  1.6/I2**70)  SS3H011 

REVISED  FOR  CURVED  PANELS  -  8/69  SS8H012 

IMPLICIT  REAL*8(A-H,Q-Z) ,  INTEGER(I-N1  SS8H013 

COMMON  /  BLOCK  /  AL ( 1 ,6, 3, 10,3, 10 ) ,  EVAL(4,3,10,25) ,  SS8H014 

1  EVQ(4,3,2,25I,  PZ ( I 1 , 3,3, 101 ,  SS8H015 

2  THI 10,4,4,3) ,  ALVA(11,11,2) ,  Pill, 10),  SS8H016 

3  CE14,10),  E14,4),  EPIlO),  CN(4),  CM(4)  SS8H017 

DIMENSION  C(2,4),  F(4),  RETURN(4,10)  SS8H018 

BETA  =  -BETA  SS3H019 

AA=l.  SS8H020 

C(l,3)=0.  SS8H021 

C(l,4)=l.  SS8h022 

C(2,3)=l.  SS8H023 

C(2,4)=0.  SS8H024 

DO  4  L=l,N  SS8H025 

ELEFT=L  SS8h026 

ELEFT=ELEFT*3.1415  SS8H027 

ERIGHT=ELEFT+1.6  SS8h028 

1=0  SS8H029 

EPZ=ELEFT  SS8H030 

GO  TO  13  SS8H031 

L  ELEFX=PTE  SS8H032 

>  EPZ=(ELEFT+  ERIGHT)/2.  SS8H033 

J  1=1*1  SS8H034 

Gl=ALFA/2./EPZ  SS8H035 

G4=G1*BETA  SS8H036 

C(l,l)=Gl  SS8H037 

C(l,2)=  -G1  SS8H038 

C(2,1)=G1  SS8H039 

C(2,2)=-G1  SS8H040 

EX=DEXP(EPZ)  SS8H041 

EXX=1./EX  SS8H042 

F(l)=.5*IEX+EXX)  SS8H043 

F(2)=DC0S(EPZ)  SS8H044 

F(3)=.5*(EX-EXX)  SS8H04S 

F(4)=0SIN{EPZ)  SS8h046 

PTE=  -G4*2.*U.  -F(1)*F(2))  +(ALFA  -BETA)  *C  F!l)*F(4)  -  F(3)*  SS8H047 

1FI2))  ♦  2.*EPZ*F{3)*F(4)  SS8h048 

IF(I.LT.2)  GO  TO  11  SS8H049 

IF(PTE*ELEFX)16,17,18  SS8H050 

i  ERIGHT  =  EPZ  SS8h051 

GO  TO  19  SS8H052 

)  ELEFT=  EPZ  SS8H053 

ELEFX  =  PTE  SS8H054 

)  IF( I.LT.30)GO  TO  12  SS8h055 
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17  CONTINUE  SS8H0t>6 

8  PTE  =0.  SS8H057 

PJA=  0.  SS8H058 

DO  9  J=l,4  SS8H059 

PTE=  PTE+  C(2,J)*F(JI  SS8H060 

9  PJA*  PJA+  C(l.J)*F(J)  SSSh06i 

CC=-PJA/PT£  SS8H062 

BB=-UA  +  CC)*Gl  SSSHObi 

DD=-BB  SS8H064 

RETURN! 1,L)  =  DD  SS8H065 

RETURN(2»LJ  =  BB  SS8H066 

RETURN(3,L)  =  CC  SS8H067 

RETURN(4,L)  =  AA  SS8H068 

EP(L)  =  EPZ  SS8H06^ 

4  CONTINUE  SS8H070 

RETURN  SS8H071 

end  SS8H0/2 


CC  =  00073 
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SUBROUTINE  PPP  ( I N , NTERMS , I  POWER , 10 , NUVW,  IR  ) 

THIS  SUBROUTINE  COMPUTES  THE  'P'  INTEGRALS — THE  INTEGRALS  OF  A 
SINGLE  MODE  SHAPE  OR  ITS  DERIVATIVE.  THE  INPUT  IS  IN  (THE  NUMBER 
OF  SPECIAL  CASES  PLUS  ONE),  THE  ARRAY  CE(  )  WHICH  CONTAINS  THE 
FOUR  CUEFFICIENTS  OF  THE  MODE  SHAPE  (OR  ITS  DERIVATIVE)  WHICH  IS 
TO  BE  INTEGRATED.  THE  OUTPUT  IS  THE  ARRAY  P(  )  CONTAINING  THE 
INTEGRALS.  THE  ROUTINE  ALSO  NEEDS  THE  VALUES  OF  £P(  ),  ENTERED 
THROUGH  COMMON.  THE  ROUTINE  IS  IN  DOUBLE  PRECISION. 

REVISED  FOR  CURVED  PANELS  -  8/69 

IMPLICIT  REAL*8(A-H,0-Z) , INTEGER  ( I-N) 

COMMON  /  BLOCK  /  AL ( I ,6, 3 , 10,3 , 10) ,  E VAL (4 ,3 ,10 ,25 ) , 


1  EVQ( 4,3,2,25), 

2  TH( 10,4,4,3) , 

3  CE(4,10),  E(4,4), 
DIMENSION  G(4»,  C(12,4,10),  F(4) 
IP0W2=IP0WER-H 

PETE=3. 

AQB=  -1. 

S3=DSURT(PETE) 

IF(IN.EQ.3)  GO 
IFdN.EQ.Z)  GO 
IF(IN.EQ.l)  GO 
SPECIAL  CASES 


PZ( 11,3,3, 10) , 
ALVA( 11,11 ,2)  , 
EP(IO),  CN(4), 


P(ll,10), 

CM(4) 


50 

190 

200 

210 

220 

230 

60 

290 

300 

310 


TO 
TO 
TO 
ARE 

IF(NUVW.EQ.3)  GO 
IF(ID.NE.l)  GO 
IFINUVW.NE.l)  GO 
DO  200  I=1,IP0W2 
T=I 

P( 1, 1)  =  S3/T 
IF  (  IR  .NE.  1  ) 
CONTINUE 
GO  TO  61 
DO  220  I=1,IP0W2 
T=  I  + 1 

IF  (  IR  .EQ.  1 
IF  (  IR.EQ.  2  ) 

IF  (  IR  .EQ.  3 
CONTINUE 
GO  TO  61 

IF(NUVW.EQ.l )  GO 
GO  TO  190 

(NUVW.EQ.3)  GO 
(ID.NE.l)  GO 
(NUVW.NE.l)  GO 
300  I=1,IP0W2 


FIRST. 


60 

50 

61 

COMPUTED 
TO  210 
TO  230 
TO  210 


P( 1,1)  =  0.00 


) 


P( 1,1)  =  S3/T 
P(l,l)  =  S3/(T-1.I 
)  P( I, 1)  =  O.DO 


TO  210 


IF  (NUVW.EQ.3)  GO  TO 
IF  (ID.NE.l)  GO  TO 
IF  (NUVW.NE.l)  GO  TO 
DO 
T=I 

P(  I  ,1)  =  0.00 
P(  1,2)  =  O.DO 
IF  (  IR  .EQ.  1 
CONTINUE 
GO  TO  61 

DO  320  1=1, IP0W2 
J=  I 

TT=  1,/T  -2./(T+l.) 
P( 1,1)  =  O.DO 
P( 1,2)  =  0.00 


310 

330 

310 


)  P(  1,2)  =  -2.D0*S3/T 


SS8I000 

ssaiooi 

SS8I002 

SS8I003 

SS8I004 

SS8I005 

SS8I006 

SS81007 

SS8I008 

5581009 

SS8I010 

SSaiOil 

SS8I012 

SS8I0i3 

SS8I014 

SS8I015 

SS8I016 

SS8I0i7 

SS8I0i8 

SS8I019 

SS8I020 

SS8I021 

SS8I022 

SS8I023 

SS8I024 

SS8I025 

SS8I026 

SS8I027 

SS8I028 

SS8I029 

SSaiOiO 

SS8I031 

SS8I032 

SS8I033 

SSbI034 

SS8I035 

SS8I036 

SS8I037 

SS81038 

SS8I039 

SS8I040 

SS8I041 

SS8I042 

SS8I043 

SS8I044 

SS8I045 

SS8I046 

SS8I047 

SS8I048 

SS8I049 

SS8I050 

SSai051 

SS8I052 

SS8I053 

SS8I054 

SS8I055 
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IF  (  IR  .EQ.  1  )  P(I,1)  =  l.DO/T 

SS8I056 

IF  (  IR  .EQ.  1  )  P(  1 ,2)  =  S3*TT 

SS8I057 

IF  {  IR  .EQ.  2  )  P(I,2)  =  -2.D0<‘S3/T 

SSBIOSd 

320 

CONTINUE 

SS8I059 

GO  TO  61 

SS8I060 

330 

IF  (NUVW.EQ.l)  GO  TO  310 

SS8I061 

GO  TO  290 

SS8I062 

61 

INN=  IN 

SS8I063 

G(  1)  =  1. 

SS8I064 

G(2)=l. 

SS8I065 

G(3)=0. 

5581066 

G(4)=0. 

5581067 

DO  1  L=INN,NTERMS 

5581068 

EX=DEXPIEP(L)) 

5581069 

SH=.5*(EX-1./EX) 

5S8I070 

SN=DSIN{EP(L )) 

5531071 

CS=DCOS(EP(L ) ) 

5581072 

CH=.5*(EX+1./EX) 

5S8I073 

DO  2  J=l, IP0W2,2 

5S8I074 

C(J,1,L)=C6( 3,L)/(EP(L)**J) 

5581075 

C(J,3,L)=CE( 1,L)/(EP(L)**J) 

SS3I076 

C(J+1,1,L)=CE(1,L)/(EP(L)**(J+1)) 

558 1077 

2 

C(J  +  l,3,L»  =  CE(3,L)/IEP{L)**(J+in 

5581078 

IJK=0 

SS8I079 

DO  10  J=ltIP0W2,2 

5581080 

IJK=  IJK+  1 

SS8I081 

Cl J.2,L)=  IAQB**IJK)*CE( 4tL)/(EP(L)**J) 

5581082 

C( J+lf 2,L)=  (AQB**1JK)*CE(2,L)/(EP(L)**( J+ll) 

5581083 

C(J,4,L  )=-(AQB**  UK  )  *CE  (  2,  L )  /  I  EP(  L  )  **  J) 

5581084 

10 

C(J  +  1,4,L)=  (AQa#«(  UK)  )*CE(4,L)/(EPIL)**U+l)  » 

5S8I085 

F(  1)=CH 

5581086 

F(2)=CS 

5S8I087 

F(3)=SH 

SS8I088 

F(4)=SN 

5581089 

DO  4  I=1,IP0W2 

5581090 

4 

P{I,L)=0. 

5581091 

DO  1  1=1,4 

5581092 

DO  1  JJ  =  1,  IP0W2 

558 1093 

DO  100  KK  =1UJ 

5S8I094 

100 

PUJ,L)  =  PUJ,L)  +  CIKK,I,L)*FII  )*ALVAUJ,KK,1) 

SS8I095 

1 

PUJ,L)  =  P(JJ,L)  -  CUJ,I,L)*G(  I  )*ALVAUJUJ,2) 

5S8I096 

RETURN 

5581097 

END 

5S8I098 

CC  =  00099 
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SUBROUTINE  SPECAL  ( IPOWER ,NTERMS ♦ MNI J t I OEFNE )  SS8JOOO 

THIS  SUBROUTINE  COMPUTES  THE  'SPECIAL*  CASES  INTEGRALS  FOR  FREE-  SS8J001 

FREE  AND  SIMPLE  FREE  BEAM  SHAPES.  THE  INPUT  NECESSARY  IS  THE  SS8J002 

•P'  INTEGRALS  FROM  SUBROUTINE  PPP  FOR  THE  CONDITION  THE  SUBR0UTINESS8J003 
IS  BEING  USED  FOR  (MNIJ=5  FOR  SIMPLE-FREE,  6  FOR  FREE-FREE).  THE  SS8JQ04 
SUBROUTINE  RETURNS  THE  INTEGRALS  IN  THE  ARRAY  ALL.  THE  MODE  SHAPESS8J005 
EVALUATIONS,  AND  DERIVATIVE  EVALUATIONS,  FOR  THE  SPECIAL  CASES  ARESS8J006 
MADE  AND  RETURNED  IN  EVQ.  THE  ROUTINE  IS  IN  DOUBLE  PRECISION.  SS3J007 

**  REWRITTEN  FOR  CURVED  PANELS  8/69  SSdJOOB 

IMPLICIT  REAL*8( A-H,0-Z) ,  INTEGER  (I-N)  SS3J009 

COMMON  /  BLOCK  /  AL (  6,3,10,3,10),  EXAL (4,3, 10,25 ) ,  SS8J010 

1  EVALI 4,3,2,25) ,  P ( 11 ,3 , 3 ,10 ) ,  SS8J0il 

2  TH(10,4,4,3) ,  ALVA(11,11,2) ,  PDUM{11,10),  SS8J012 

3  C£(4,10),  E(4,4),  EPdO),  CN(4),  CM(4)  SS8J013 

COMMON  /  ARRAYS  /  $P ( 11 , 2 , 3 ,3 , 10) ,  SAL ( 1 ,2 , 6 , 3 , 10 , 3 , 1 0 ) ,  SS8j014 

1  SW( 10,2,3,10,10)  SS8J015 

IO=IOEFNE  SS8J016 

IFIID.EQ.l)  JD=2  SS8J017 

IF(ID.EQ.2)  JD=1  SS8J018 

S3  =  DSQRT  (  3. DO  )  SS8J019 

THE  INTEGRALS  ARE  EVALUATED  FROM  HERE  TO  STATEMENT  1  .  SS8J020 

I  =  1  SS8J021 

T=I  SS8J022 

SIMPLE  -  FREE  BOUNDARY  CONDITION  SS8J023 


90 


IF  {MNIJ.NE.5)  GO 

TO  200 

SS8J024 

DO  90  K=l,6 

SS8J025 

00  90  IUVW=1,3 

SS8J026 

DO  90  JUVW=1,3 

SS8ja27 

DO  90  M=1,NTERMS 

SS8J028 

ALIK, lUVW, 1, JUVW, 

M)  =  O.DO 

SS8J029 

ALIK, IUVW,M, JUVW, 

1)  =  0.00 

SS8J030 

AL( 1, ID, 1,  ID, 1)  = 

3. DO 

SS8J031 

AL  (1,  ID,  1, ID, 1)  = 

1.5D0 

SS8J032 

AL( 1,10,1,3  ,1)= 

1.5D0 

SS8J033 

AL( 1, JO, 1,  ID, 1)  = 

1.5D0 

SS8J034 

AL{4,JD, 1, ID, 1)= 

3.00 

SS8J035 

AL(1,JD,1,J0,1)= 

1.00 

SS8JU36 

AL(2,J0, 1,JD,1)= 

3.00 

SS8JOi7 

AL{4, JD, 1, JO, 1)= 

1.500 

SS8J038 

AL(1,JD,1,3  ,1)= 

1.00 

SS8J0i9 

AL(2,JD,1,3  ,1)= 

3.00 

SS8J040 

AL(4,JD,1,3  ,1)= 

1.500 

SS8J041 

AL(1,3  ,1,ID,1)= 

1.500 

SS8J042 

AL(4,3  ,1,10,1)= 

3.00 

SS8J043 

AL{ 1,3  ,1, JO, 1)= 

1.00 

SS8J044 

AL12,3  ,1,J0,1)= 

3.00 

SS8J045 

AL(4,3  ,1,J0,1)= 

1.500 

SS8J048 

AL(1,3  ,1,3  ,1)= 

1.00 

SS8J047 

AL(2,3  ,1,3  ,1)= 

3.00 

SS8J048 

AL(4,3  ,1,3  ,1)= 

1.5D0 

SS8J049 

IF  (  NTERMS.EU.l 

)  GO  TO  101 

SS8J050 

DO  100  M=2,NTERMS 

$$8J051 

ALI 1, 10,1, ID,M)= 

S3^P{l,if ID»M) 

SS8J052 

AL ( 1, ID, 1, JD,M)= 

S3*P(1»1»J0,M) 

ssejoii 

ALII, ID, 1,3  ,M)= 

S3«P(1t1»3  ,M) 

SS8J054 

ALI 1, ID, M, I0,1)= 

S3«P(lf IflOtM) 

SS8J055 
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AL (4, ID,M,  ID, 1)  = 
AL(5,ID,M,I0,1)= 
AL(l,ID,M,JD,l)= 
AL(2, ID,M,J0,1)* 
AL(4, IO,M,JD, l)= 
AL{5,ID,M,J0,l»= 
ALI6,1D,M,J0, l)= 
AL(1,I0,M,3  ,1)= 
AL(2,ID,M,3  ,1»= 
AL(4,ID,M,3  ,l)= 
AL(5,IO,M,3  ,l)= 
AL(6,  ID,M,3  ,1)  = 
AL( 1,JD, 1,  IO,M)  = 
AL12, JO, 1,  ID,M»  = 
AL(4,JD,1, IO,MI= 
AL( 1,JD, 1, JD,M>= 
AL (2, JO, I, JO,M)= 
AL{4, JO, 1, JO,M)= 
AL(l,JD,l,3  ,M)= 
AL(2,J0,1,3  ,M)= 
AL(4,JD,1,3  ,M)= 
AL( l,JD,M,  ID, l)  = 
AL(4,J0,M, ID,1)= 
AL(5, JD,M,  IO,l)  = 
AL( l,JO,M, JO,l)= 
AL(2, JO,M, JO, l)= 
AL(4, JD,M,JO, 1)= 
AL(5,JD,M,J0,1»= 
AL 16, JO,M, JO, 1  1  = 
ALII, JO, M, 3  ,l)= 
AL(2,J0,M,3  ,l)= 
AL(4,JD,M,3  ,1)= 
AL(5,JD,M,3  ,l)= 
AL(6,JD,M,3  ,l)= 
AL(l,3  ,l,IO,M)= 
AL{2, 3  ,1,  ID,M)  = 
AL(4,3  ,l,IO,MI= 
AL( 1, 3  , 1,JD,M  )  = 
AL(2,3  ,1,JD,M)= 
AL(4,3  ,l,JO,M»= 
AL(  1,3  ,1,3  ,M)  = 
AL(2,3  ,1,3  ,M)= 
AL(4,3  ,1,3  ,M)= 
AL( 1,3  ,M,  ID, l)  = 
AL(4,3  ,M, IO,l)= 
AL(5,3  ,M,  ID,1)  = 
ALII, 3  ,M,JD,1)= 
AL(2,3  ,M,JO,l)= 
AL(4,3  ,M,JD,l)= 
AH5,3  ,M,JD,1)  = 
AL16,3  ,M,JO,l)= 
AL  (  1 , 3  ,  M ,  3  , 1 )  = 
AL(2,3  ,M,3  ,1)= 
AL(4,3  ,M,3  ,1)= 
AL15,3  ,M,3  ,1)= 
AL(6,3  ,M,3  ,1)= 


S3*P(1,2,ID,M) 
S3*P{1,3,I0,M) 
S3*P(2, 1, ID,M) 
S3*P(i,2,IO,M) 
S3*P(2,2,ID,M) 
S3*P(2,3, ID,M) 
S3*P(1,3,ID,M) 
S3*P(2, 1, ID,M) 
S3*P( 1,2,ID,M) 
S3*P(2,2,I0,M) 
S3*P(2,3,ID,M) 
S3*P(1,3,ID,M) 
S3*P(2,l,IO,MI 
S3*P(1,2,ID,M) 
S3*P(l,l,IO,M) 
S3*P(2, l,JO,M) 
S3*P( 1,2,JD,M) 
S3*P(1,1,J0,M) 
S3=i‘P(2,l,3  ,M) 
S3>»=P(1,2,3  ,M) 
S3*P(l,l,3  ,M) 
S3*P( l,l,JO,M) 
S3*P(1,2,JD,M) 
S3*P{ 1,3,J0,M) 
S3*P(2,1,JD,M) 
S3*P(1,2,JD,M) 
S3*P(2,2,JD,M) 
S3*P(2,3,JD,M) 
S3*Pa,3,JD,M) 
S3*P(2, l,JD,M) 
S3*P( 1,2,JD,M) 
S3*P(2,2,JD,M) 
S3*P(2,3,JD,M) 
S3*P(1,3,JD,M) 
S3*P<2,1,ID,M) 
S3*P(1,2,ID,M) 
S3*P(1,1,ID,M) 
S3*P(2,1,JD,M) 
S3*P{1,2,J0,M) 
S3*P(1,1,JD,M» 
S3*P(2,1,3  ,M) 
S3*P(1,2,3  ,M) 
S3*P(1,1,3  ,M) 
S3#P(1,1,3  ,M) 
S3*P(1,2,3  ,M) 
S3*P(1,3,3  ,M) 
S3»P(2,1,3  ,M) 
S3*P(1,2,3  ,M) 
S3*P(2,2,3  ,M) 
S3*P(2,3,3  ,M) 
S3*P(1,3,3  ,M) 
S3*P(2,1,3  ,M) 
S3*P(1,2,3  ,M) 
S3*P(2,2,3  ,M) 
S3*P(2,3,3  ,M) 
S3*P( 1,3,3  ,M) 


SS8JOI36 

SS8J057 

SS8J058 

SS8J059 

SS8J060 

SS8J06i 

SS8J062 

SSoJ063 

SS8J064 

SS8J065 

SSaj066 

SS8J067 

SS8J068 

SS8J069 

SS8J070 

SS8J071 

SS8J072 

SS8J073 

SS8J074 

SS8J075 

SS8J076 

SS8J077 

SS8J078 

SS8J079 

SS8J08U 

SSBJOdl 

SSaJ032 

SS8J083 

SS8JD84 

SS8JU85 

SS8J086 

SS8J087 

SS8J088 

SS8J089 

SS8J090 

SS8J091 

SS8JOV2 

SS8J093 

SS8J094 

SS8J095 

SS3J096 

SS8J097 

SS8J098 

SS8J099 

SS8J100 

SS8J101 

SS8Ji02 

SS8J103 

SS8J104 

ssajios 

SS8J106 

SS8J107 

SS8J108 

SS8J109 

SS8J110 

SSdJIil 


184 


100 

CONTINUE 

SS8J112 

101 

CONTINUE 

SS8J11J 

DO  122  I=l,IPOWER 

SS8Jii4 

T  =  I 

SS8Jil5 

$W(I, ID, 1,1,1)  =  3./(2.+T) 

SS8J116 

$W(  I, ID, 2, 1,1)  =  3./T 

SS8Jil7 

SW(I,1D,3,1,1)  =  3./(l.+T) 

SS8J118 

IF  (  NTERMS.EQ.l  )  GO  TO  125 

SS8J1I9 

DO  122  M=2,NTERMS 

SSa J120 

Z  =  S3*P( I+1,1,3,M) 

SS8J12I 

$WII,  ID, 1,1, M)  =  2 

S$8Ji22 

$W( I, ID, 1,M, 1)  =  Z 

SS8J123 

Z  =  S3*P(I,2,3,M) 

SS8J124 

$W(  I, ID,2,1,M)  =  Z 

SS8J125 

$M(  I,  I0,2,M, 1)  =  Z 

SS8J126 

$W( I, ID,3, 1,M)  =  S3*P(I , 1,3,M) 

SS8J127 

$W(I,ID,3,M,1)  =  S3*P{I+1,2,3,M) 

SS8J128 

122 

CONTINUE 

SS8J129 

GO  TO  125 

SSBJ130 

FREE  -  FREE  BOUNDARY  CONDITION 

SS8Ji31 

200 

CONTINUE 

SS8J132 

DO  205  K=l,6 

SSBJlii 

DO  205  KUVW=1,2 

SS8Jli4 

DO  205  IUVW=1,3 

SS8J135 

DO  205  JUVW=1,3 

SS8Jli6 

DO  205  M=1,NTERMS 

SS8J137 

AL(  K,  IUVW,KUVW, JUVM,M)  =  0.00 

SS8J138 

AL(  K, IUVW,M, JUVW,KUVW)=0.D0 

SS8J139 

205 

CONTINUE 

SS8J140 

S  =  S3 

SS8J141 

T  =  2.D0*S3 

S$8Ji42 

AL( 1, ID,2, ID,2)=  12.00 

SS8J143 

ALII, 10,2,30,1)=  -T 

SS3J144 

ALII, ID, 2, 3  ,1)=  -T 

SS8J145 

AL( 1, JD, 1,  ID,2)=  -T 

SSBJ146 

ALt 1,30,1,30,1)=  l.DO 

SS8J14/ 

ALII, 3D, 1,3  ,1)=  l.DO 

SS8J148 

AL14,3D,2, 1D,2)=  12.00 

SS8J14J 

ALI4,3D,2,30, 1>=  -T 

SS8 J150 

AL(  1,30,2,30,2)=  1.00 

SS8J151 

ALI 2,3D,2,3D,2)=  12.00 

SS8Ji52 

AL(4,3D,2,3  ,1)=  -T 

SS8J1:)3 

AL(1,30,2,3  ,2)=  l.DO 

SS8J154 

AL(2,3D,2,3  ,2)=  12.00 

SS8Ji55 

ALII, 3  ,1,10,2)=  -T 

SS8J136 

ALII, 3  ,1,30,1)=  l.DO 

SS8JI57 

ALII, 3  ,1,3  ,1)=  l.DO 

SS8J158 

ALI4,3  ,2,ID,2)=  12.00 

SS8J159 

ALI4,3  ,2,30,1)=  -T 

SS8J16U 

ALII, 3  ,2,30,2)=  1.00 

SS8JI61 

ALI2,3  ,2,30,2)=  12.00 

S$8Ji62 

AH4,3  ,2,3  ,1)=  -T 

SS8J163 

ALU, 3  ,2,3  ,2)=  l.DO 

SS8J164 

AL(2,3  ,2,3  ,2)=  12.00 

S$8J165 

DO  210  M=3,NTERMS 

SS8J166 

AH  1, ID,2, ID,M)=  -T*PI1,1,I0,M) 

SS8J167 

185 


AL( i, I0,2,JD,M)= 

-T*P(1,1,JD,M) 

SS8J168 

AL(1,ID,2,3  ,M)= 

-T*P( 1,1,3  ,M) 

SS8J169 

AL( 1, ID,M,  I0,2)  = 

-T*P(1,1,ID,M) 

SS8J170 

AL(4, ID,M, ID,2)= 

-T*P(1,2,ID,M) 

SS8J171 

AL{5, ID,M,  ID,2)  = 

-T*P(1,3,ID,M) 

SS8J172 

AL( 1, ID,M,JO,il= 

P( 1, l,IO,M) 

SS8J173 

AL(4, IO,M,JD, 1)= 

P(1,2,ID,M) 

SS8J174 

AL(5, IO,M,JD, 1)= 

P(  1,3,ID,M) 

SS8J175 

AL( 1, ID,M, JD,2)= 

S*P(l,l,ID,M) 

-T=<'P(2,l,ID,M) 

SSaJ176 

AL(2, I0,M,JD,2)= 

-T*P(l,2,ID,M) 

SS8J177 

AL  (4,  J0,2)  = 

S*P(1,2,ID,M) 

-T*P(2,2,IO,M) 

SS8J178 

AUS,  ID»M,JD,2)  = 

S*P( l,3,ID,Mi 

-T*P(2,3, IO,M) 

SS8J179 

AL(6, ID,M, JD,2)= 

-T*P(1,3,ID,M) 

SS8J180 

AL(l,I0,M,3  ,1>= 

P(l,l,I0,M) 

SS8J181 

AL(4,ID,M,3  ,l)= 

P(1,2,ID,M) 

SS8J182 

AL{5,ID,M,3  ,1)= 

P{ 1,3,1D,M) 

SS8J183 

AL(1,I0,M,3  ,2)= 

S*P(l,l,IO,M) 

-T*P(2tl,I0,M) 

SS8J184 

AL(2,I0,M,3  ,21= 

-T*Pl 1,2,ID,M) 

SS8J135 

AL(4,ID,M,3  ,2)= 

S*P(1,2,ID,M) 

-T*P{2,2, ID,M) 

SS8J180 

AL(5,ID,M,3  ,2)= 

S*P(1,3,I0,M) 

-T*P(2,i,ID,M) 

SSdJla7 

AL(6,IDtM,3  ,2)= 

-T*P( lt3,IO,M) 

SS8J188 

AUlfJD.l,  ID,Ml  = 

P( 1, 1,ID, Ml 

SSajl89 

AL( It JDt It JD,M)= 

Pdtl,  JD,M) 

SS8J190 

AL(l,JDtlt3  tM)= 

P<1,1,3  tM) 

SS8J191 

AL( l,J0,2t  ID,MI  = 

S*P(l,l,10,M) 

-T*P(2,lt ID,M) 

SS8J192 

AL ( 2t  JDt2t  ID,M)  = 

-T*P{l,2,ID,M) 

SS8J193 

AL(4tJDt2t IDtM)= 

-T*P(1,1,ID,M) 

SS8J194 

ALt 1, JD,2t JD,M)= 

S*P(l,l,JO,M) 

-T*P<2, 1, JD,M) 

SS8J195 

AL( 2t JDt2t JO,M)= 

-T*P(l,2,JO, Ml 

SS8J196 

AL(4t JDt2tJ0tMJ= 

-T*P(1,1,JD,M) 

SS8J197 

AL(ltJ0t2t3  ,M)= 

S*P(1,1,3  ,M) 

-T*P12,1,3  ,M) 

SS8J198 

AL(2tJ0t2t3  ,M)= 

-T*P(1,2,3  ,M) 

SS8J199 

ALl4tJDt2,3  tM)= 

-T*P(1,1,3  ,M) 

SS8J200 

AL( It JDtM, IDt2>= 

-T*P(1,1,JD,M) 

SS8J20i 

AL(4t JDtMt IDt2)= 

-T*P(l,2,JD,M) 

SS8J202 

AL(5t JOtMt ID,2)= 

-T*Pd,3,JD,M) 

SS8J203 

AL(l,JDtMtJDti)= 

Pdtl, JDtM) 

SS8J204 

AL(4t JDtMtJO,l)= 

P(  1,2,JD,M) 

SS8J205 

AL{5t JD,M, JDt 1)= 

Pd,3,JD,M) 

SS8J206 

ALllt J0tM,JDt2)= 

S*Pd,l,JD,M) 

-T*P(2,1, JDtM) 

SS8J207 

AL( 2t JD,M, J0t2)= 

-T*Pd,2,JO,M} 

SS8J208 

AL(4t JDtM, JD,2»= 

S*Pil,2,JD,M) 

-T*P(2,2, JD,M) 

SS8J209 

AL(5, JD,M, JD,2)= 

S*Pd,3,JD,M) 

-T*P(2,3, JD,M) 

SS0J210 

AL(6, JD,M,JD,2)= 

-T*Pd,3,JD,M) 

SS8J211 

AL(1,JD,M,3  ,1)= 

Pdtl, JDtM) 

SS8J212 

AL14,JD,M,3  ,l)= 

Pd, 2, JO, Ml 

SS8J213 

AL(5,JD,M,3  ,1)= 

Pd, 3,  JDtM) 

SS8J214 

AL(1,JD,M,3  ,2)= 

S*Pd,l,JD,M) 

-T*P(2,1 , JD,M) 

SS8J215 

AL(2,JDtM,3  ,2)= 

-T*Pd,2,J0,M) 

SS8J21t> 

AL{4,J0,M,3  ,21= 

S*Pd,2,JD,M) 

-T*P(2,2, JD,M) 

SS8J217 

AL(5,JD,M,3  t2»= 

S*Pd,3,JD,M) 

-T*P(2,3, JO,M) 

SS8J218 

AL(6,JD,M,3  ,2)= 

-T*Pd,3,J0,M) 

SS8J219 

AL( 1,3  , 1, 1D,M)= 

PIltltlDtM) 

SS8J220 

AL(l,3  ,1,JD,M)= 

PIltltJDtM) 

SS8J221 

AL(l,3  ,1,3  ,M>= 

PCI, 1,3  tM) 

SS8J222 

AL(l,3  ,2,ID,M)= 

S*Pd,l,IDtM) 

-T*P(2,1,I0,M) 

SS8J223 
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AL(2,3  ,2» ID,MJ= 

-T*P{1,2,ID,M) 

SS8J224 

AL{4,3  ,2,  ID,M)  = 

-T»P(1,1,ID,M) 

SS8J225 

AL{1,3  ,2,JD,M)= 

S*P(1,1,JD,M)  -T*P(2,1,JD,M) 

SS8J226 

AL(2,3  ,2,JD,M»= 

-T*P (1,2,J0,M) 

SSBJ227 

AL(4,3  ,2tJ0fM»= 

-T*P(1, 1,JD,M) 

SS8J228 

AL(lt3  ,2,3  ,M)= 

S*P(1,1,3  ,M)  -T*P(2,1,3  ,M) 

SS8J229 

AL(2,3  ,2,3  ,M}= 

-T*P(1,2,3  ,M) 

SS8J23a 

AL{4,3  ,2,3  ,M)= 

-T*P(1,1,3  ,H) 

SS8J231 

AL( 1,3  ,M, ID,2)= 

-T*P{1,1,3  ,M) 

SS8J2 32 

AL(4,3  ,M,  I0,2)  = 

-T*P(1,2,3  ,M) 

SS8J233 

AL(5,3  ,M,ID,2)= 

-T*P(1,3,3  ,M) 

SS8J234 

AL( 1,3  ,M,JD,1)= 

P( 1,1,3  ,M) 

SS8J235 

AL (4,3  ,M, JO, 1 )= 

P(l,2,3  ,M) 

SS8J236 

AL(5,3  ,M,JO,l)= 

P(l,3,3  ,M) 

SS8J237 

AL(i,3  ,M,JO,2)= 

S*P(1,1,3  ,M)  -T*P(2,1,3  ,M) 

SS8J238 

AL{2,3  ,M,J0,2)= 

-T*P(1,2,3  ,M) 

SS8J239 

AL(4,3  ,M,JD,2)= 

S*P(1,2,3  ,M)  -T*P{2,2,3  ,M) 

S$8J240 

AL(5,3  ,M,JD,2)= 

S<‘P(1,3,3  ,M)  -T*P(2,3,3  ,M) 

SS8J241 

AL(6,3  ,M,JD,2)= 

-T*P(1,3,3  ,M) 

S$8J242 

AL(l,3  ,M,3  ,1)= 

P(l,l,3  ,M) 

SS8J243 

AL(4,3  ,M,3  ,1)= 

P(l,2,3  ,M) 

SS8J244 

AL(5,3  ,M,3  ,i)= 

P(l,3,3  ,M) 

SS8J243 

AL(1,3  ,M,3  ,2)= 

S*P(1,1,3  ,M)  -T*P(2,1,3  ,M) 

SS8J246 

AL(2,3  ,M,3  ,2)= 

-T*P(1,2,3  ,M) 

SS8J247 

AL(4,3  ,M,3  ,2)= 

S*P(1,2,3  ,M)  -T*PI2,2,3  ,M) 

SS8J24a 

AL(5,3  ,M,3  ,2)= 

S*P(1,3,3  ,M)  -T*P(2,3,3  ,M) 

SS8J249 

AL(6,3  ,M,3  ,2)= 

-T*P(1,3,3  ,M) 

SS8J250 

CONTINUE 

SS8J25i 

DO  236  I=l,IPaWER 

SS8J232 

T  ^  I 

S38J233 

$W(I, ID, 1,1,1)  = 

U/T 

SS8J254 

$W(I,IO,2,l,l)  = 

0. 

SS8J235 

$W( I, 10,3, 1,  1)  = 

0. 

SS8J256 

$W ( 1,10,1, 1,2)  = 

S3*( l./T-2./(T+l.)  ) 

SS8J257 

$W(I,ID,2,1,2)  = 

0. 

SS8J258 

$W( I, 10,3, 1,2)  = 

0. 

SS8J259 

$W(I, ID, 1,2,1)  = 

S3*( l./T-2./(T+l.)  ) 

SS8J260 

$W(I, 10,2, 2,1)  = 

0. 

SS8J261 

$W(I,ID,3,2,1)  = 

-2.*S3/T 

SS8J2o2 

$W(1, 10,1,2,2)  = 

3.*( l./T-4./(T+l.)+4./{T+2. ) ) 

SS8J263 

$W( 1, 10,2,2,2)  = 

12. /T 

SS8J264 

$W( I, 10,3,2,2)  = 

-6.*(l./T-2./{T+l.)  ) 

SS8J265 

IF  (  M.LE.2  )  GO 

TO  236 

SS8J266 

00  235  M=3,NTERMS 

SS8J267 

$W{I,ID,1,1,M)  = 

P( I, 1,3,M) 

SS8J268 

$W( I, 10,2, 1,M)  = 

0. 

SS8J269 

$W(I,I0,3, 1,M)  = 

0. 

SS8J270 

$W( I,ID, 1,M,1)  = 

P( I, 1,3,M) 

SS8J271 

$W(l,ID,2,M,l)  = 

0. 

SS8J272 

iW(I,ID,3,M,i)  = 

P(I,2,3,M) 

SS8J273 

$W(I,I0,1,2,M)  = 

S3*(PI I ,1,3,M)-2.*P(  H-1,1,3,M)  ) 

SS8J274 

$W( I,ID,2,2,M)  = 

-2.*S3*P{I ,2,3,M) 

SS8J275 

$W( I, I0,3,2,M)  = 

-2.*S3*P(I ,1,3,M) 

SS8J276 

$W(I,ID,1,N,2)  = 

S3*(P(  I  ,1,3,M)-2.*P( I  +  1,1,3,M)  ) 

SS8J277 

$W( I,ID,2,M,2)  = 

-2.*S3*P(I ,2,3,M) 

SS8J278 

$W( I, ID,3,M,2)  = 

S3*(P(I  ,2,3,M)-2.*P(H-1,2,3,M)  ) 

SS8J279 
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c 


236  CONTINUE 
125  CONTINUE 

CALCULATE  MODE  SHAPES  AND  DERIVATIVES 


DO  400  1=1,25 

W=I-1 

W=W/24. 

IF(MNIJ.NE.5)  GO  TO  300 


EVAL<1,3  , 

1,I)  = 

S3*W 

EVAL(2,3  , 

1,  n* 

S3 

EVAL( 1, JD, 

1,I)  = 

SS’I'W 

EVAL(2, JD, 

i,n= 

S3 

EVALd,  ID, 

i,n= 

S3 

EVAL (2, ID, 

1,  n  = 

0.00 

GO  TO  400 
300  EVALd, 3  , 

i,d= 

l.DO 

EVAL(2,3  , 

1,  n= 

0.00 

EVALd, 3  , 

2,  I)  = 

S3*(1.D0-2.D0*W) 

EVAL(2,3  , 

2,  I)  = 

-2.00*53 

EVALd,  JD, 

1,  i)= 

1.00 

EVAL(2, JD, 

i,i)= 

O.DO 

EVALd,  JD, 

2,I)  = 

S3*d.00-2.D0*W) 

EVAL(2, JO, 

2,  I)  = 

-2.D0*S3 

EVALd,  ID, 

i,n= 

0. 

EVAL{2, ID, 

1,  i)  = 

O.DO 

EVAL  d,  ID, 

2,  l)  = 

-2.D0*S3 

EVAL(2, ID, 

2,  n= 

0.00 

400  CONTINUE 


INNN=MNIJ-4 
DO  500  L=l,25 
on  500  J=1,INNN 
on  500  K=3,4 
DO  500  1=1,3 

500  EVAL(K,I,J,H  =  0.00 
RETURN 
END 


SS8J280 

SSdJ281 

SS8J232 

SSaj283 

SS8J284 

SS8J285 

SS8J286 

SS8J287 

SSdJ288 

SS8J289 

SS8J290 

SS8J291 

SS8J292 

SS8J293 

SS8J294 

SS8J295 

SS8J296 

SS8J297 

SS8J298 

SS8J299 

SS8J300 

SS8J301 

SS8J302 

SS8J303 

SS8J304 

SS8J305 

SS8J306 

SS8J307 

SSdJ308 

SS6J309 

SS8J310 

SS8J311 

SS8J312 

SS8J313 

SS8J314 


CC  =  00315 
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SUBROUTINE  SEARCH  (  KEYl,  KEY2,  M 1 , M2 t MM , KM , LM , I M , NM, FM I N  ) 

C 

C  THIS  SUBROUTINE  KEEPS  TRACK  OF  THE  MINIMUM  MARGIN  OF  SAFETY^ 

C  ** 

DIMENSION  F< 15,25*25) 

COMMON  /  ARRAYS  /  F 
C 

FH  ^  FMIN 
DO  10  M^Ml,M2 
00  10  K=l,25 
DO  10  L^I,25 

IF  (FH  .LT.  F(M,K,L)  )  GO  TO  10 
FH  =  F(M,K,L) 

MH  =  M 
KH  K 
LH  =  L 
10  CONTINUE 

IF  (  FMIN  •LE.  FH  )  RETURN 

FMIN  =  FH 

MM  •=  MH 

KM  =  KH 

LM  =  LH 

IM  =  KEYl 

NM  =  KEY2 

RETURN 

END 


SS8KOOO 

SSBKOGi 

SS8K0a2 

SS8K003 

SS8KU04 

SS8K005 

SS8K006 

SS8K007 

SS8K008 

SSdK009 

SS8K0iU 

SS8K01i 

SS8K012 

SS8K013 

SSdKG14 

SS8K015 

SS8K016 

SS8K017 

SS8K018 

SS8K0i9 

SS8K020 

SS8K02i 

SS8K022 

SS8K023 

SS8K024 

SS8K023 


CC  =  00026 
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o  o  o  o  o 


SUBROUTINE  ASEMBL 

■S'*  THIS  SUBROUTINE  ASSEMBLES  THE  POTENTIAL  ENERGY  MATRIX  (  V  )« 


THE  KINETIC  ENERGY  MATRIX 

(  TT  ),  THE 

EDGE  LOADS  MATRIX 

(  U  ), 

AND  THE 

LATERAL  LOADS  VECTOR  (  Q  ». 

DIMENSION 

V(150,150),  TT(150,150),  VHOLOI 150, 150) 

DIMENSION 

U(50,50),  Q(150) 

,  S(150> 

DIMENSION 

QHOLO( 150) , 

SHQLOf 150) 

DIMENSION 

AL{2,6,3,10,3 

,10), 

EVAL(4,2 

,3,10,25) 

, 

1 

iW{ 10,2,3, 10, 

10)  , 

Pill, 2, 3 

,3,10) 

DIMENSION 

A( 3,3) , 

B(3,3)  , 

0(3 

»3) 

DIMENSION 

YBARSI 100) , 

ZBARSI 100) 

,  AS(IOO), 

1 

XI YYS{ 100) , 

XIYZSI 100) 

,  XIZZS(IOO), 

ES{ 100) 

2 

GJS( 100) , 

RHOSC 100)  , 

PAXS(IOO) , 

3 

X8ARR(50), 

ZBARK(50) , 

AR(50) , 

4 

XI XXR{ 50) , 

XIXZR(50)  , 

XIZZRISO), 

ER(50), 

5 

GJR(50), 

RH0R(50), 

PAXR(50)  , 

A 

PMASSI 50) , 

IPMM(50), 

IPWYI50)  , 

8 

PX( 10, 10), 

PY( 10,10) , 

PXY(10,10) , 

C 

PC(50), 

IPXXI 50) , 

IPYY(50)  , 

0 

FC(50), 

IFXXI 50) , 

IFYYISO) , 

E 

ITAGCM(50) , 

QQ(10,10)  , 

F 

PLM0M(50), 

ITAGLM{50) 

,  I0ISLM(5O), 

G 

PKCI 50) , 

IGSPRX(50) 

,  IGSPRY150), 

H 

PL INEI 50), 

I0ISLS(50) 

,  ITAGLS(50) 

DIMENSION 

ITIMEI 12), 

TIMEISO) 

DIMENSION 

X{ 50) , 

Y(  50) 

COMMON 

U 

COMMON 

/ 

BLOCK  /  TT 

COMMON 

/ 

ARRAYS  /  P, 

AL, 

$M 

COMMON 

/ 

VALUES  /  EVAL 

COMMON 

/ 

CNTROL  /  IFLAGO, 

IFLAGB, 

IFLAGW, 

IBCX, 

IBCY, 

1 

Nl,  lEOGE,  IREACT, 

N2(3) , 

lELAST, 

INTPRT 

COMMON 

/ 

NUMBER  /  NPLYS, 

NTUX, 

NTVX, 

NTUX, 

NTUY, 

1 

NTVY, 

NTWYf 

NMODES, 

NSTRNG, 

NRING, 

2 

NPNXf 

NPNY, 

NQTX, 

NQTY, 

NPTLOS, 

3 

NPTMOM, 

NLNMOM, 

NLMASS, 

NPTSUP, 

NLNSPR, 

4 

MATSIZ, 

MUVSIZ,  MWSIZ 

COMMON 

/ 

GEOM  /  AA, 

BB, 

RR, 

ALFAX, 

ALFAY, 

1 

BETAX, 

BETAY 

COMMON 

/ 

$TIME  /  TIME, 

I  TIME 

COMMON 

/ 

ABO  /  A, 

B, 

D, 

RHAB 

COMMON 

/ 

PARAM  /  Y8ARS, 

ZBARS, 

AS, 

XIYYS, 

XIYZS, 

1 

XIZZS, 

ES, 

G  J  S  f 

RHOS, 

PAXS, 

3 

XBARR, 

ZBARR, 

AR, 

XIXXR, 

XIXZR, 

4 

XIZZR, 

ER, 

G  JR  f 

RHOR, 

PAXR, 

6 

PMASS, 

IPWW, 

IPWY, 

PX, 

PY, 

7 

PXY, 

PC, 

IPXX, 

IPYY, 

FC, 

8 

IFXX, 

IFYY, 

ITAGCM, 

QQ, 

PLMOM, 

9 

ITAGLM, 

IDISLM, 

PKC, 

IGSPRX, 

IGSPRY, 

A 

PLINE, 

IDISLS, 

ITAGLS 

COMMON 

/ 

STEVAL  /  ESV(10,100),  ESW(10,100), 

ES0U( 10 

,100), 

1 

ERUI10,50),  ERt<(10,50), 

ERDWCIO 

,50) 

EQU  IVAL 

ENCE  (  VHOLDI 1) ,P( 1)  ) 

SS8LOOO 

SS8L001 

SS8L002 

SS8L00j 

SS8L0a4 

SS8L005 

SS8L006 

ssaLOo? 

SS8L008 

ssaLOO'ji 

SS8L010 

SS8L011 

SS8L012 

,SS8LOU 

SS8L014 

SS8L015 

SS8L016 

SS8L017 

SS8L018 

SS3L019 

SS8L020 

SS8L021 

SS8L022 

SS8L023 

SS8L024 

SS8L025 

SS8L026 

SS8L027 

SS8L028 

SS8L029 

SS8L030 

SS8L031 

SS8L032 

SS8L033 

SS8L034 

SS8L035 

SS8L036 

SS8L037 

SS8LU38 

SS8L039 

SS8L040 

SS8L041 

SS8L042 

SS8L043 

SS8L044 

SS8L043 

SS3L046 

SS8L047 

SS8L048 

SS8L049 

SS8L050 

SS8L051 

SS8L052 

SS8L053 

SS8L054 

SS8L055 
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EQUIVALENCE  { 
DATA  NAMEV/'V 
DATA  NAMES  /  'S 


QHOLD(l),  YBARSd)  ).  (  SHQLD(l),  ZBARS(51» 
• /.NAMETT/' TT  ‘/.NAMEU/'U  '/.NAMEQ/'Q 
'  / 


) 

•/ 


ITHERY  =  2 
IF  (  INTPRT  .NE. 

IF  (  ITHERY  .EQ. 

11  FORMAT  CO  USING 
IF  (  ITHERY  .EQ. 

12  FORMAT  CO  USING 
WRITE  (6,4) 

4  FORMAT  COTHE  AL  INTEGRALS  FOLLOW') 


1  )  GO  TO 

1  )  WRITE 
N0V02HIL0V 

2  )  WRITE 


1001 

(6,11) 

SHELL  THEORY') 
(6,12) 


VLASOV  SHELL  THEORY') 


DO 

990 

1-1,2 

DO 

990 

Il-l, 

3 

DO 

900 

Jl-1, 

3 

IF 

( 

I 

•  EQ. 

2  ) 

GO  TO 

7 

IF 

( 

11 

•  EQ. 

1  ) 

MIL 

= 

NTUX 

IF 

( 

11 

•  EQ. 

2  ) 

MIL 

NTVX 

IF 

( 

11 

•  EQ. 

3  ) 

MIL 

NTWX 

IF 

( 

J1 

•  EQ. 

1  ) 

M2L 

= 

NTUX 

IF 

( 

J1 

•  EQ. 

2  ) 

M2L 

= 

NTVX 

IF 

( 

J1 

•  EQ. 

3  ) 

M2L 

NTWX 

GO 

TO  8 

IF 

( 

11 

•  EQ. 

1  ) 

MIL 

NTUY 

IF 

( 

11 

•  EQ. 

2  ) 

MIL 

NTVY 

IF 

( 

1 1 

•  EQ. 

3  ) 

MIL 

NTWY 

IF 

( 

ji 

•  EQ. 

1  ) 

M2L 

NTUY 

IF 

( 

ji 

•  EQ. 

2  ) 

M2L 

NTVY 

IF 

( 

ji 

•  EQ. 

3  ) 

M2L 

NTWY 

CONTINUE 

DO 

3 

K1 

=  1,6 

2 

3 

9J0 


931 


930 


941 

940 

990 

901 


WRITE  (6,1)  I,K1,I1,J1 

FORMAT  CO', 412) 

DO  3  M1=1,M1L 

WRITE  (6,2)  (  AL(  I,K1,I1,M1, J1,M2),  M2  =  1,M2L) 

FORMAT  C  ',1P10E12.5) 

CONTINUE 

CONTINUE 

DO  930  101=1,4 

WRITE  (6,931)  ID1,I,I1 

FORMAT  COEVAL  *,312) 

DO  930  LL=1,25 

WRITE  (6,2)  (EVAL(  I01,I,I1,M1 ,LL)  ,  M1=1,M1L  ) 
IF  (I.EQ.l)  MAXP  =  MAXO  ( NPNX ,NQTX, 1 ) 

IF  (I.EQ.2)  MAXP  =  MAXO  ( NPNY , NQT Y, 1 ) 

DO  940  IP=1,MAXP 
DO  940  K2=l,3 
WRITE(6,941)  IP,I,K2,I1 
FORMAT  COP  INTEGRALS  ',412) 

WRITE  (6,2)  (  P( IP,I,K2,I1,M1),  M1=1,M1L  ) 

CONTINUE 

WRITE  (6,901) 

FORMAT  COTHE  W**2  INTEGRALS  FOLLOW') 

DO  920  1=1,2 

IF  (  I  .EQ.2)  GO  TO  902 

MAXP  =  MAXO  (NPNX,NQTX,1) 


SS8L056 

SSdL057 

SS8L058 

SS8L059 

SS8L060 

SS8L061 

SS8L062 

SS8L06J 

SS8L064 

SS8L065 

SS8L066 

SS8L067 

SS8L068 

SS8L069 

SS8L070 

SS8L071 

SS8L072 

SS8L073 

SS8L074 

SS8L075 

SS8L076 

SS8L077 

SS8L078 

SS8L079 

SS8L080 

SS8L081 

SS8L082 

SS8L03i 

SS8L0d4 

SS8L085 

SS8L086 

SS8L087 

sssLoaa 

SS8L089 

SS8L090 

SS8L091 

SS8L092 

SS8L093 

SS8L094 

SS8L095 

SS8L096 

SS8L097 

SS8L098 

SS8L099 

SS8L100 

SS8L10i 

SSdLiOZ 

SS8L103 

SS8L104 

SS8L105 

SS8L106 

SS8L107 

SS8L108 

SS8L109 

SS8L110 

SS8L111 
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M3L  =  NTWX 
L3L  =  NTWX 
GO  TO  903 

902  MAXP  =  MAXO  { NPNY,NQTY, I ) 

M3L  =  NTWY 

L3L  =  NTWY 

903  DO  920  IP=1,MAXP 
DO  920  K2=1.3 
WRITE  (6,1J  lPfIfK2 
DO  920  L3=1,L3L 

920  WRITE  (6,2)  (  $W ( IP , I , K2 ,L3, M3 ) , M3=l ,M3L ) 

1001  CONTINUE 

DO  5  1=1,50 
X(  I  )  =  0. 

5  Y(  I  )  =  0. 

DO  6  I=l,MWSIZ 
DO  6  J=1,MWSIZ 

6  U(I,J)  =  0» 


DO  10 

I 

=  1,MATSIZ 

Q(  1) 

=  0 

• 

S(  1 ) 

=  0 

• 

00  10 

J 

=  1,MATSIZ 

V( I,J)  = 

0. 

TT( I,J) 
CONTINUE 
L  =  1 

K  =  1 

=  0. 

A1 

l./AA 

fll 

= 

l./BB 

R1 

= 

l./RR 

AIB 

= 

Al^BB 

ABl 

AA*B1 

AlBRl 

AlB-f'Rl 

ABIRI 

= 

AB1*R1 

BRl 

BB*R1 

ARl 

AA-i'Rl 

A2B 

A1B*A1 

AB2 

= 

AB1*B1 

B1R2 

= 

Bl^Rl’fRl 

R2 

R1*R1 

BR2 

= 

BR1*R1 

AR2 

AR1*R1 

AlRl 

A1*R1 

A2BR1 

= 

A2B*R1 

AB2R1 

AB2*R1 

81R1 

= 

Bl^i'Rl 

TBR2 

2.*BR2 

ABR2 

•= 

AA*BR2 

A3B 

A2B/AA 

A131 

A1*B1 

A2 

A1*A1 

AB3 

AB2/BB 

82 

= 

B1*B1 

B3  = 

B2*B1 

AB  = 

AA*BB 

AIBIRI  = 

^  A1*B1R1 

SS8L112 

SS6L113 

SS8L114 

SS3L115 

SS8L116 

SSBLil? 

SS8L118 

SS8L119 

SS8L120 

SS8L121 

SS8L122 

SS8L123 

SS8L124 

SS3L125 

SS8L126 

SS8L127 

SS8L128 

SS8L129 

SS8L130 

SS8L131 

SS8L132 

SS8L13i 

SS8L134 

SS8L135 

SS8L136 

SS8L137 

SS8L138 

SS8L139 

SS8L140 

SS8L14i 

SS8L142 

SS8L143 

SS8L144 

SS8L145 

SS8L146 

SS8L147 

SS8L143 

SS8L149 

SS8L150 

SS8L151 

SS8L152 

SS8L153 

SS8L154 

SS8L155 

SS8L156 

SS8L157 

SS8L158 

SS8L159 

SS8L160 

SS3L161 

SS8Li62 

SSaLl63 

SS8L164 

SS8L165 

SS8L166 

SS8L167 
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20 


AIB2  = 

A281  =  AI*A1B1 
A3  =  Al*A2 
AB1R2  =  A8l*R2 
A18R2  =  AIB*R2 
A28R2  =  A2B*R2 
ABRl  =  AA*BRl 
AR3  =  AR2  *  Rl 
BR3  =  BR2  * 
ABR3  =  ABR2 
ABR4  =  ABR3 
CALL  STATUS 
TIME (5) 

DO  1000 


DO  1000 


Rl 

*  Rl 

*  Rl 

(  ITIME  ) 

=  .01*ITIME(8) 
IP  =  1,3 
IQ  =  1,3 


DO  1000  I  =  1,NTLI 


SS8L168 

SSaLl69 

SS8L170 

SS8L171 

SS8L172 

SS8L173 

SS8Li74 

SS8L175 

SS8L176 

SS8L177 

SSbL178 

SSaLl79 

SS8L180 

SS6L181 

SS8L182 


IF 

( 

IP  .EQ, 

1  ) 

NTLI 

= 

NTUX 

SS8Lla3 

IF 

( 

IP  .EQ. 

1  ) 

NTLJ 

NTUY 

SS8L184 

IF 

( 

IP  .EQ. 

2  ) 

NTLI 

= 

NTVX 

SS8Li85 

IF 

( 

IP  .EQ. 

2  ) 

ntlj 

NTVY 

SS8Lld6 

IF 

( 

IP  .EQ. 

3  ) 

NTLI 

= 

NTWX 

SS8L18/ 

IF 

I 

IP  .EQ. 

3  ) 

NTLJ 

NTWY 

SS8L138 

IF 

( 

IQ  .EQ. 

1  ) 

NTLM 

- 

NTUX 

SS8L189 

IF 

( 

IQ  .EQ. 

1  ) 

NTLN 

NTUY 

SS8L190 

IF 

I 

IQ  .EQ. 

2  ) 

NTLM 

= 

NTVX 

SS8L191 

IF 

( 

IQ  .EQ. 

2  ) 

NTLN 

NTVY 

SS8L192 

IF 

( 

IQ  .EQ. 

3  ) 

NTLM 

NTWX 

SS8L193 

IF 

( 

IQ  .EQ. 

3  ) 

NTLN 

= 

NTWY 

SS8L194 

SS8L195 


DO 

1000 

J  =  1,NTLJ 

SS8L196 

DO 

1000 

M  =  1,NTLM 

SS8L197 

DO 

1000 

N  =  1,NTLM 

SS8L198 

IF 

( 

IP 

.EQ.  1  )  II 

=  ( I-1)*NTUY  ♦  J 

SS8Li99 

IF 

( 

IP 

.EQ.  2  )  II 

=  NTUX+NTUY  +  (I-1)*NTVY  ♦  J 

SS8L200 

IF 

( 

IP 

.EQ.  3  )  II 

=  NTUX*NTUY  +  NTVX*=NTVY  *■  {I-1)*NTWY  +  J 

SS8L201 

IF 

( 

IQ 

.EQ.  1  )  JJ 

=  (M-1)*NTUY  ♦  N 

SS8L202 

IF 

( 

IQ 

.EQ.  2  )  JJ 

=  NTUX*NTUY  +  (M-1)*NTVY  +  N 

SS8L203 

IF 

( 

IQ 

,EQ.  3  )  JJ 

=  NTUX*NTUY  +  NTVX^NTVY  *■  (M-1)*NTWY  N 

SSBL204 

KK 

= 

1 1 

-MUVSI2 

SS8L205 

LL 

= 

JJ 

-MUVSIZ 

SS8L206 

IF 

( 

IP 

.6T.  IQ  )  GO 

TO  580 

SS8L207 

IF 

( 

IP 

.EQ.  1  .AND. 

IQ  .EQ.  1  )  GO  TO  20 

SS8L208 

IF 

( 

IP 

.EQ.  1  .AND. 

IQ  .EQ.  2  )  GO  TO  100 

SSdL209 

IF 

c 

IP 

.EQ.  1  .AND. 

IQ  .EQ.  3  )  GO  TO  160 

SS8L210 

IF 

1 

IP 

.EQ.  2  .AND. 

IQ  .EQ.  2  )  GO  TO  220 

SSBL21i 

IF 

( 

IP 

.EG.  2  .AND. 

IQ  .EQ.  3  )  GO  TO  310 

SS8L212 

IF 

( 

IP 

.EQ.  3  .AND. 

IQ  .EQ.  3  )  GO  TO  370 

SS8L213 

XI 

1) 

= 

AL( 1,2, 1,1,1, M)  «  AL(2,1,1,J,1,N) 

SS8L214 

X( 

2) 

AL(1,4,1,1,1,M)  *  AL(2,4,1,N,1, J) 

SS8L215 

X( 

3) 

= 

AL(1,4,1,M,1,I)  *  AL(2,4,1,J,1,N) 

SS8L216 

X( 

4) 

= 

ALI 1,1, 1,1,1, M)  *  AL(2,2,1, J,1,N) 

SS8L217 

Y( 

1) 

+ 

A( 1, 1)  ♦  AIB 
A(3,3)  *  ABl 

*  Xl  1)  +  A(l,3)  ♦  (  X(  2)  X(  3)  ) 

*  X(  4) 

SS8L218 

SS8L219 

V(  I  I, 

JJ) 

=  V(II,JJ)  + 

Y(  1) 

SS8L220 

IF 

( 

ITHERY  ,EQ.  2  ) 

V(II,JJ)  =  V(II,JJ)  -  8(1,3)  *  Rl  *  (X(2) 

SS8L221 

X(3))  -  2.*  B(3,3)  ♦  A81R1  ♦  X(4)  ♦  0(3,3)  *  AB1R2  *  X(4) 

SS8L222 

IF 

( 

NSTRNG  .EQ.  0  ) 

GO  TO  30 

SS8L223 
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SS8L224 

SS8L223 

SS8L226 

SS8L227 

SS8L228 

SS8L229 

SS8L230 

SS8L231 

SS8L232 

SS8L233 


DO  30  L=1,NSTRNG 

Vdl.JJ)  =  V(II,JJ)  +  A1  *  ES(L)  ♦  AS(L)  *  AL  ( I  f  2  ♦  1 1 1 » 1 » M)  SS8L223 

1  *  ESW(J,L)  *  ESW(N,L)  SS8L226 

30  CONTINUE  SS8L227 

IF  {  NRING  .EQ.  0  )  GO  TO  40  SS8L228 

00  40  K=l, NRING  SS8L229 

V(IIfJJ)  =  VdItJJ)  +  83  *  ERIK)  ♦  XIZZRIK)  *  AL  1 2»  3 ,  If  J  f  l»  N )  SS8L230 

I  *  ERUdfK)  ♦  ERUIMfK)  SS8L231 

40  CONTINUE  SS8L232 

IF  I  IFLAGD  .EQ.  0  )  GO  TO  70  SS8L233 

TT(dfJJ)  =  RHAB  *  AL(  If  If  If  I  f  IfM)  *  AL  1 2  f  1  f  1  f  J  f  1  f  N )  SS8L234 

IF  I  NSTRNG  .EQ.  0  )  GO  TO  50  SS8L235 

DO  50  L=lfNSTRNG  SS8L236 

TTdIfJJI  =  TTdIfJJ)  +  RHOS(L)  *  ASIL)  *  AL  1 1  f  1  f  I  f  I  f  1  f  M )  *  AA  SSaL237 

I  *  ESW(JfL)  *  ESW(NfL)  SS8L238 

50  CONTINUE  SS8L239 

IF  I  NRING  .EQ.  0  )  GO  TO  60  SS8L240 

DO  60  K=lfNRING  SS8L24i 

TTdIfJJ)  =  TT(dfJJ)  +  RHORIK)  ♦  (  BB  *  ARIK)  ♦  AL  (2  f  I  f  If  Jf  1  f  N)  SS8L242 

1  +  XIZZRIK)  ♦  B1  *  AL(2f2f If Jf IfN)  )  SS3L243 

2  *  ERUdfK)  ♦  ERUIMfK)  SS8L244 

60  CONTINUE  SS3L245 

IF  I  NLMASS  .EQ.  0  )  GO  TO  70  SS8L246 

DO  70  L=lfNLMASS  SS8L247 

TTdIfJJ)  =  TTdIfJJ)  +  PMASSIL)  ♦  EVAL  1 1  f  1  f  1  f  I  f  I  Pl^iW  I  L  )  )  ♦  SS8L248 

lEVALl  If 2f If Jf IPWYIL) )*EVALI 1 f 1 f 1 f Mf I PWW I L ) ) ♦EV AH  1 f 2 f 1 1 Nf I PWY I L ) )  SS8L249 


70  CONTINUE 


IF 

I 

IFLAGW 

.EQ.  0  ) 

GO 

TO 

1000 

IF 

I 

JJ 

.GT.  1  ) 

GO 

TO 

1000 

IF 

I 

lEOGE 

.EQ.  0  ) 

GO 

TO 

75 

IF 

I 

NSTRNG 

.EQ.  0  ) 

GO 

TO 

72 

DO  72  L=lfNSTRNG 

Sid)  =  Sid)  -  PAXSIL)  *  PIlflf2flfI)  *  ESWIJfL) 

72  CONTINUE 

IF  I  NRING  .EQ.  0  )  GO  TO  73 
DO  73  K=LfNRING 

Slid  =  Sdl)  -  PAXRIK)  *  XBARRIK)  *  PIlf2f3flfJ)  *  ERUIIfK) 

73  CONTINUE 

DO  74  K^lfNPNX 
DO  74  L=lfNPNY 

74  Sdl)  =  Sdl)  -  BB  *  PX  IKfL)  ♦  PIKfLf2flfI)  *  PlLf2flflfJ) 

1  -  AA  *  PXYIKfL)  *  PIKflfiflfl)  *  PILf2f2flfJ) 

75  IF  I  NPTMOM  .EQ.  0  )  GO  TO  80 
DO  80  L=l, NPTMOM 

IF  I  ITAGCMIL)  .EQ.  1  )  GO  TO  80 

Qdl)  =  Qld)  -  R1  *  FCIL)  *  EVALllflflf  IflFXXID) 

1  ♦  EVALI  lf2f  If  Jf  IFYYID) 

80  CONTINUE 

IF  I  NLNMOM  .EQ.  0  )  GO  TO  1000 
DO  90  L=lfNLNMOM 

IF  I  ITAGLMIL)  .EQ.  1  )  GO  TO  90 

Qtd)  =  Qdl)  -  BRl  *  PLMOMIL)  *  E  VAL  1 1  f  1  f  I  f  I  f  1 01 SLMI  L )  ) 

I  ♦  PIl,2f If  If J) 

90  CONTINUE 
GO  TO  1000 


SS8L250 

SS8L251 

SS8L252 

SS8L253 

SS8L254 

SS8L255 

SS8L256 

SS8L257 

SS8L25a 

SS8L259 

SSaL260 

SS8L261 

SS8L262 

SS8L263 

SS8L264 

SS8L265 

SS8L266 

SS8L267 

SS8L268 

SS8L269 

SS8L270 

SS8L271 

SS8L272 

SS8L273 

SS8L274 

SS8L275 

SS8L276 

SS8L277 

SS8L27a 


100  X(  5)  = 


ALllf4fl  fl  f2fM)  *  AH2f4f2fNf  If  J)  SS8L279 
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X(  6)  = 
X(  7)  = 
X(  8)  = 


AL(l*2tlflf2,M) 
ALd.I.l.I  *2,M) 
AL{l>4t2tMtlt n 


*  AL(2,1,1,J,2,N)  SS8L280 

*  AL(2,2,l,J,2,N)  SS8L281 

*  AL(2t4tl» J«2«N)  SS8L282 


YI 

2) 

=  AI 1,2)  * 

X( 

5) 

A  1 1,3) 

AIB 

X( 

6) 

SS8L283 

1 

+  AI2,3)  * 

ABl 

* 

XI 

7) 

AI3,3) 

X( 

8) 

SS8L284 

IF 

I 

ITHERY  .NE. 

1  ) 

GO 

TO 

105 

SS8L285 

YI 

3) 

=  Bd,2)  * 

R1 

* 

X( 

5) 

2. 

♦ 

B(l,3) 

♦ 

AlBRl 

♦ 

X( 

6) 

SS8L286 

1 

+  BI2,3)  * 

ABIRI 

X( 

7) 

2. 

❖ 

BI3,3) 

♦ 

R1 

♦ 

X( 

8) 

SS8L287 

GO 

TO 

110 

SS8L288 

105  YI3) 

=  Bd,3)  ♦ 

AlBRl 

♦ 

XI6) 

- 

612, 

3) 

*  A81R1 

*  XI7) 

SS8L289 

1  -  D(3,3)  *  R2  *  X(8) 

no  VdltJJ)  =  V(d,JJ)  ♦  Y(2)  +  Y(3) 

IF  (  NSTRNG  .EQ.  0  )  GO  TO  120 
DO  120  L=1»NSTRNG 

VdItJJ)  =  V(II,JJ)  -  A2  *  ES(LI  ♦  AS(L»  ♦  YBARSIL) 

1  *  ALd,6,2,M,l,I  )  *  ESW(J,L)  ♦  ESVIN.LI 
120  CONTINUE 

IF  (  NRING  .EQ.  0  )  GO  TO  130 
DO  130  K=l, NRING 

V(II,JJ)  =  VdItJJ)  -  B2  ♦  ERIK)  *  AR(K)  ♦  XBARRIK) 

2  *  AL(2f  6, 1,J,2,N)  ♦  ERUdtK)  *  ERWIM.K) 

130  CONTINUE 

IF  (  IFLAGD  .EQ.  0  )  GO  TO  1000 
IF  (  NSTRNG  .EQ.  0  »  GO  TO  140 
DO  140  L=lf NSTRNG 

TTdItJJ)  =  TTdI.JJ)  -  RHOSIL)  ♦  AS(L)  *  YBARS(L) 

1  *  ALII, 4, 2, M, 1,1)  *  ESW(J,L)  *  ESV(N,L) 
140  CONTINUE 

IF  (  NRING  .EQ.  0  )  GO  TO  1000 
DO  150  K=l, NRING 

TT(I1,JJ)  =  TTdI,JJ)  -  RHORIK)  *  AR(K)  *  XBARRIK) 

2  *  ALI2,4,1,J,2,N)  *  ERUd,K)  ♦ERWIM,K) 

150  CONTINUE 

GO  TO  1000 
160  XI  9)  = 

XdO)  = 

XI  11)  = 

Xd2)  = 

XI13)  = 

XI14)  = 

Xd5)  = 

Xd6)  = 

YI  4)  =  Ad, 2)  ♦  BRl 
IF  I  ITHERY  .NE.  1  ) 

YI  5)  =-Bd,l)  *  A2B  ♦  X(ll)  -  Bd,2)  *  B1 

1  -  Bd,3)  *  Al  * 

2  -  B(2,3)  *  AB2  *  Xd5)  -  2.  ♦  BI3,3)  *  B1 

GO  TO  170 

165  YI 5)  =  -  BI  1,  1)  *  A2B 


ALd,4,l,I,3,M) 
ALd,l,l,I,3,M) 
ALII, 6, 3, H, 1,1) 
ALd,4,l  ,I  ,3,M) 
ALd,2,l,I,3,M) 
ALd,5,3,M,l,I) 
ALd,l  ,1  ,I  ,3,M) 
ALd,4,3,M,l,  I) 

♦  XI  9)  AI2,3)  * 

GO  TO  165 

♦  X(ll)  -  Bd,2) 

I  2.  *  Xd3)  *■  Xd4)  ) 

♦  Xd5)  -  2.  ♦  BI3,3) 


* 

* 

* 

* 

* 

* 

* 

* 
ARl 


ALI2,1 ,1 ,J,3,N) 
ALI2,4,1,J,3,N) 
AL(2,1 ,1,0,3, N) 
AL(2,5,3,N,1, J) 
ALI2,4,3,N,1, J) 
ALI2.4,1,J,3,N) 
AL(2,6,3,N,1,J) 
ALI2,2,1,0,3,N) 

♦  XdO) 

♦  X( 12) 


*  Xd6) 


SS8L290 

SS8L291 

SS3L292 

SS8L293 

SS8L294 

SS8L295 

SS8L296 

SS8L297 

SS8L298 

SS8L299 

SS8L300 

SS8L301 

SS8L302 

SS8L303 

SS8l304 

SS8L305 

SS8L306 

SS8L307 

SS6L308 

SS8L309 

SS8L310 

SS8L311 

SS8L312 

SS8L313 

SS8L314 

SS8L313 

SS8L316 

SS8L317 

SS8L318 

SS8L319 

SS8L320 

SS8L321 

SS8L322 

SS8L323 

SS8L324 

SS8L325 

SS8L326 


SSaL327 

*  Xdl)  -  Bd,2)  ♦  (  BR2  ♦  XI9)  +  Bl  *X  112 )  ) SS8L328 

1  -  Bd,3)  *  A1  *  I  2.*Xd3)  *  Xd4)  )  -  812,3)  ♦  I  2.  ♦  AR2  SS8L329 

2  *  XdO)  +  AB2  *  XI15)  )  -  2.*  8(3,3)  ♦  Bl  *  Xd6)  SS8L330 

3  ♦  011,3)  *  AlRl  ♦  X(14)  +  D(2,3)  *  (  AR3  ♦  XdO)  SS8L331 

4  ♦  AB2R1  *  Xd5)  )  +  2.*  DI3,3)  ♦  BlRl  *  Xllb)  SS8L332 

170  VIII, JJ)  =  VId.JJ)  +  YI4)  ♦  YI5)  SS8L333 

IF  I  NSTRNG  .EQ.  0  )  GO  TO  180  SS8L334 

DO  180  L=l, NSTRNG  SS8L335 
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V(lItJJ)  =  V(II,JJ)  -  ES(L)  ♦  AS(L)  ♦  ZSARS(L)  ♦  A2 
1  ♦  AL( l»6.3,M,lf I)  *  ESW(JtL)  *  ESW(NfL» 

130  CONTINUE 

IF  (  NRING  .EQ.  0  )  GO  TO  190 
00  190  K=l, NRING 

V(IIfJJ)  =  V(II,JJ>  +  ERUdfK)  *  ERIKJ  *  (  ERWIM.K)  ♦  I  XIXZR(K) 

1  B3  *  AL(2.3f  1,  Jt3»N)  -  AR(K»  ♦  XBARRIK)  *  BlRl 

2  *  AL(2f5,l»J,3tN)  )  -  XIZZRIK)  *  AIBIRI  *  ERDW(M,K) 

3  *  AL{2,5,l,J,3,N)  ) 

190  CONTINUE 

IF  (  IFLAGD  .EQ.  01  GO  TO  1000 
IF  (  NSTRNG  .EQ.  0  )  GO  TO  200 
DO  200  L=lfNSTRNG 

TTdItJJ)  =  TTdI.JJ)  -  RHOS(L)  ♦  AS(L)  *  ZBARS(L) 

1  *  AL( l,4f 3tM,ltI )  ♦  ESWIJ,LJ  *  ESW(NtL) 

200  CONTINUE 

IF  (  NRING  .EQ.  0  )  GO  TO  1000 
DO  210  K=l, NRING 

TTdItJJ)  =  TTdUJJ)  +  RHOR(K)  ♦  ERUd  tK)  *  (  -ZBARRIKI  *  AIB 
AR(K)  *  ERDWIM.K)  *  AL ( 2, 1 . 1 1 J * 3 1 N )  +  B1  ♦  XIXZR(K» 
AL(2,2,  UJt3,N)  *  ERWIM.K)  I 


1  * 

2  ^ 

210  CONTINUE 
GO  TO  1000 
220  Xd7)  = 

Xd8>  = 

X( 19)  = 

XI20)  = 

Y(6)  =  M2, 2) 
+  A (3,3) 


*  ABl 

♦  AIB 


*  X(17) 

♦  X(20) 

GO  TO  225 


ALdtl,2,I  ,2tM) 
AL{lf4,2,I ,2,M) 
AL(lt4,2,Mf2,I) 
ALd,2,2,I,2,M) 


*  AL(2,2,2, J,2,N) 

*  AL(2,4,2,N,2, J) 

*  AL(2,4,2, J,2,N) 

*  AL12, 1,2, J,2,N) 


IF  I  ITHERY  .NE.  I  ) 

Y(7)  =  2.  *  B(2,2)  *  ABIRI  *  Xd7)  + 
1  +  X(19)  )  +  4.  ♦  B(3,3)  *  A18R1 

Y(8)  =  0(2,2)  *  AB1R2  ♦  Xd7)  2.  * 


A(2,3)  ♦  (  X(  18)  X(  19)  ) 


3.  ♦  B{2,3)  *  R1  ♦  (  X(18) 

*  X(20) 

DI2,3)  ♦  R2  ♦  (  Xd8d-X(19) 


2.*  B(3,3)*AIBR1*X(20) 


A3  ♦  AL(1,3,2,I,2,M) 


1  4-  4.  *  0(3,3)  *  A1BR2  *  X(20) 

GO  TO  230 

225  Y(7)  =  B(2,3)  *  R1  *  (  X(18)  +  X(19)  )  * 

Y(8)  =  0(3,3)  *  A18R2  *  X(20) 

230  V(II,JJ)  =  VdI,JJ)  +  Y(6)  +  Y(7)  +  Y(8) 

IF  (  NSTRNG  .EQ.  0  )  GO  TO  240 
DO  240  L=l, NSTRNG 

V(1I,JJ)  =  V(II,JJ)  +  ES(L)  ♦  XIZZS(L)  ♦ 

1  *  ESV(J,L)  ♦  ESV(N,L) 

240  CONTINUE 

IF  (  NRING  .EQ.  0  )  GO  TO  250 
DO  250  K=l, NRING 

V(d,JJ)  =  V(II,JJ)  +ER(K)  *  AR(K)  *  B1  ♦  ALI2 ,2,2 ,  J,2  ,N) 

1  <=  ERWd,K)  ♦  ERW(M,K) 

250  CONTINUE 

IF  (  IFLAGD  .EQ.  0  )  GO  TO  280 

TT(d,JJ)  =  TT(II,JJ)  +  RHAB  *  AL  (  1 , 1  ,2 , 1  ,  2  ,  M)  ♦  AL  ( 2 , 1  ,2  ,  J  ,2  ,  N  ) 
IF  (  NSTRNG  .EQ.  0  )  GO  TO  260 
DO  260  L=l, NSTRNG 

TTdI,JJ)  =  TTdI,JJ)  ♦  RHOS(L)  *  E  SV  (  J  ,L )  *E  SV  (  N,  L  )  *1  AA*AS  (  L ) 

2  *  AL(  1,1,2, 1,2, M)  ♦  A1  *  XIZZS(L)  ♦  ALd  ,2,2, 1 , 2,M)  ) 

260  CONT INUE 

IF  (  NRING  .EQ.  0  )  GO  TO  270 


SS8L336 

SS8L337 

SS8L338 

SS8L339 

SS8L340 

SS8L341 

SS8L342 

SS8L343 

SS8L344 

S58L345 

SS8L346 

SS3L347 

SS8L348 

SS8L349 

SS3L350 

SS8L351 

SS8L352 

SS8L353 

SS8L354 

SS8L355 

SS8L356 

SS8L357 

SS8L358 

SS8L359 

SS8L360 

SS8L36i 

SS8L362 

SS8L363 

SS8L364 

SS8L365 

SS8L36b 

SS8L367 

)SS8L368 

SS8L369 

SS8L37Q 

SS8L371 

SS8L372 

SS8L373 

SS8L374 

SS8L375 

SSBL376 

SS8L377 

SS8L378 

SS8L3/9 

SS8L3a0 

SS8L381 

SS8L382 

SS8L383 

SS8L384 

SS6L385 

SS8L386 

SS8L387 

SS8L388 

SS8L389 

SS8L390 

SS8L391 
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DO  270  K=l, WRING 

TT(II,JJ)  =  TT(II,JJ)  ♦  RHORIKJ  *  AR(K»  *  BB  *  AL ( 2 , 1 ,2 f J ,2 , N) 

1  *  ERW(I,K>  *  ERW(M,K) 

270  CONTINUE 

IF  (  NLMASS  .EQ.  0  »  GO  TO  280 
DO  280  K=l, NLMASS 

TT(II,JJ)  =  TT(II,JJ)  +  PMASS(K)  *  EVAL ( 1 , I ,2 t I , I PWWI K) )  ♦ 
lEVALI  l,2t  2t  IPWYIK)  )«EVALUt  W2tM»  IPWM(K)  I^-EVALd  »2  t2  »N,  I PMY  ( K ) ) 
280  CONTINUE 

IF  (  IFLAGW  .EQ.  0  )  GO  TO  1000 

IF  (  JJ  .GT.  NTUX*NTUY  I  )  GO  TO  1000 

IF  (  lEDGE  .EQ.  0  )  GO  TO  285 

IF  (  NSTRNG  .EQ.  0  )  GO  TO  282 

DO  282  L=l, NSTRNG 

S(in  =  sill)  +  PAXS(L)  *  A1  ♦  YBARS(L)  *  P 1 1 1 1  »3, 2 » 1)  *ESV  (  J ,  L ) 

282  CONTINUE 

IF  I  NRING  .EQ.  0  )  GO  TO  283 
DO  283  K=l, NRING 

Sdl)  =  SIIH  -  PAXR(K)  ♦  P(1,2,2,2,J)  *  ERWII.K) 

283  CONTINUE 

DO  284  K=1,NPNX 
on  284  L=1,NPNY 

284  Sill)  =  S(II)  -  AA  ♦  PY  (K,L)  *  PIK,1,1,2,I)  *  P(L,2f2,2,J) 

1  -  6B  ♦  PXYIK.L)  ♦  P(K,l,2»2,n  *  P(Lt2,l,2,J) 

285  IF  (  NPTMOM  .EQ.  0  )  GO  TO  290 

DO  290  K=l, NPTMOM 

IF  (  ITAGCM(K)  .EQ.  2  »  GO  TO  290 
QlII)  =  Q(in  -  R1  *  FC(K)  ♦  EVAL(l,l,2,ItIFXX(Kn 
1  ♦  EVAL(1,2,2,J,IFYY(K)) 

290  CONTINUE 

IF  (  NLNMOM  .EQ.  0  )  GO  TO  1000 
DO  300  K=l, NLNMOM 

IF  I  ITAGLMIK)  .EQ.  2  )  GO  TO  300 

Qlin  =  Q(II)  -  ARl  ♦  PLMOM(K)  *  E  YAH  1  ,2 ,2  ,  J  »  I D I  SLM(  K)  ) 

1  *  P(1,1,1,2,I) 

300  CONTINUE 
GO  TO  1000 

310  XI21)  =  AL(ltl,2,I,3,M)  *  AL (2,4f2 , J,3,N) 

X(22)  =  AL( l,4,2tl ,3,M)  *  AL (2 , 1 ,2 , J ,3 . N ) 

X(23)  =  AL(lt5,3,M,2,n  *  AL  (  2 ,4  ,2  ,  J  ,3 ,  N ) 

X(24)  =  AL( 1,6,3,M,2,  I)  ♦  AL ( 2 , 1 .2 , J ,3 , N ) 

X(25)  =  AL(l»4.3,M,2tn  *  AL(2,2  .2  » J.3»N  ) 

X(26)  =  AL( 1,4,2,I f3,M)  ♦  AL ( 2 ,5 .3 , N,2 , J ) 

X(27)  =  AL{l,2,2fIf3,M)  ♦  AL (2 t 4 , 3 , N , 2 , J ) 

X(28)  =  ALllfl  i2tl  t3»M)  *  ALU  ,6  »3  »N,2,  J  ) 


310  XI21)  =  AL(ltl,2,I,3,M)  *  AL (2,4f2 , J,3,N) 

X(22)  =  AL( l,4,2f I t3f M)  *  AL (2 , 1 ,2 , J ,3 . N ) 

X(23)  =  AL(lt5,3,M,2,n  *  AL  (  2 ,4  ,2  ,  J  ,3 ,  N ) 

X(24)  =  AL( 1,6,3,M,2,  I)  ♦  AL ( 2 , 1 .2 , J ,3 , N ) 

X(25)  =  AL(l»4.3,M,2tn  *  AL(2,2  .2  » J.3»N  ) 

X(26)  =  AL( 1,4,2,I f3,M)  ♦  AL ( 2 ,5 .3 , N,2 , J ) 

X(27)  =  AL{l,2,2fIf3,M)  ♦  AL (2 t 4 , 3 , N , 2 , J ) 

X(28)  =  ALllfl  i2tl  t3»M)  *  ALU  ,6 « 3 » Nf  2*  J  ) 

Yl  9)  =  A(2,2>  *  ARl  *  X(21)  +  A12,3)  *  BRl  *  XU2) 

IF  1  ITHERY  .NE.  1  )  GO  TO  315 

YllO)  =  -  B(l,2)  ♦  A1  *  X(23)-  Bll,3)  *  A2B  *  XU4I 

1  +  B(2,2»  *(AR2  ♦  X(21)  -  AB2  ♦  X128J  ) 

2  +  BU,3)  *  1  TBR2  ♦  X(22)  -  2.  ♦  B1  ♦  XUS)  -  B1  *  XU6)  ) 

3  -  B<3,3)  *  2.  ♦  A1  ♦  XI27) 

YIll)  =  -  Dll, 2)  ♦  AlRl  ♦  X(23)  -  2.  ♦  Dll, 3)  ♦  A2BR1  ♦  XU4) 

1  -  D12,2>  ♦  AB2R1*  X128)  -  2.  *  012,3)  *  BlRl  *1  X126) 

2  *■  X125))  -  4.  ♦  D13,3)  *  AlRl  *  XU7) 

GO  TO  320 

315  YllO)  =  -  Bll,2)  ♦Al  *  X123)  -  Bll,3)  *  A2B  *  XU4) 


SS8L392 

SS8L393 

SS8L394 

SS8L395 

SS8L396 

SS3L397 

SS8L398 

SS8L399 

SS8L400 

SS8L401 

SS8L402 

SS8L403 

SS8L404 

SS3L4a5 

SS8L406 

SS8L407 

SS8L40a 

SS8L409 

SS8L410 

SS8L411 

SS8L412 

SS8L413 

SS8L414 

SSaL415 

SS8L416 

SS8L41 J 

SS8L4ia 

SS8L419 

SS8L420 

SS8L421 

SS8L422 

SS8L423 

SS8L424 

SSaL425 

SS8L426 

SS8L427 

SS8L428 

SS8L429 

SS8L430 

SS8L431 

SS8L432 

SS8L433 

SS8L434 

SS8L435 

SS8L436 

SS8L437 

SS8L438 

SS8L439 

SS8L440 

SS8L441 

SS8L442 

SS8L443 

SS8L444 

SS8L445 

SS8L446 

SS8L44/ 
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1  -  B(2,2)  *  (  AR2  ♦  X(2l)  *  AB2  *  X(28)  I 

2  -  B(2,3)  *  Bl  *  (  2.*X(25)  *  X(26)  » 

3  -  2.*B{3,3)  *  A1  *  X(27) 

Y{ll)  =  -  Dat3)  *  A2BRI  ♦  X(24)  -  D{2,3)  *  (  BlRl  *  X(26) 


1  ♦  BR3  *  X(22> 

320  V(  II, JJ)  =  + 

IF  (  NSTRNG  .EQ.  0  ) 
00  330  L=l, NSTRNG 
V(  I  I, JJ  )  =  V( 11 ,JJ)  + 
1  *  ESVIJ,L)  * 

330  CONTINUE 

IF  (  NRING  .EQ.  0  ) 
00  340  K=l, NRING 
VI  1 1, JJ  ) 


)  -  2.*DI3,3)  *  AlRl  *  X(27) 
Y(9)  ♦  Y( 10)  ♦  YI 11) 

GO  TO  330 


ES(L)  ♦  XIYZSIL) 
ESW(N,L) 

GO  TO  340 


♦  A3  ♦  ALl 1,3, 2,1,3, M) 


VllItJJ)  + 

1  *  (  ERWIM.K) 

2  *  AL(2,6,3,N,2, J)  +  R1  ♦ 

3  *  AlRl  ♦  ERDW(M,K) 

340  CONTINUE 

IF  I  IFLAGD  .EQ.  0  ) 

IF  (  NSTRNG  .EQ.  0  ) 

DO  350  L=l, NSTRNG 
TT (  I  I, JJ  )  =  TT( 1 1 ,JJ) 

1  * 

2  « 

3  ♦ 

350  CONTINUE 

IF  {  NRING  .EQ.  0 
DO  360  K=l, NRING 
TT(II,JJ)  =  TTUI,JJ)  -  RHORIK) 


ERIK)  *  ARIK)  ♦  ERWI I ,K) 

♦  I-ZBARRIK)  *  82 
AH  2,4,2,  J,3,N>  )  +  XBARRIK) 

*  ALI2,4,2,J,3,N)  ) 


I  -  ABl  ♦ 
ESDWINfL) 


GO  TO  1000 
GO  TO  350 

*  RHOSILI  *  ESVIJ,L) 

ZBARSIL)  »  ASIL)  *  ALI 1 ,1 ,2 , I ,3 ,M) 
+  A1  ♦  XIYYSIL) 


ALI 1,2,2, 1,3, M)  *  ESWIN,L)  ) 


)  GO  TO  1000 


♦  ARIK)  *  ZBARRIK) 


IF  I  ITHERY  .NE. 
YI13)  =-BIl,2)  * 

1  -  BI2,2)  * 

2  -  812, 3)  * 
YI 14)  =  DI 1, 1)  * 

1  *011,3)* 

2  ♦  012,3)  * 


1  )  GO  TO  375 
AlBRl  *  I  XI30) 


A81R1  *  I  XI32) 

2.*Rl  *  1  XI 34) 

A3B  *  XI  36)  + 

2.*A2  *  I  XI39)+XI40) 
2.*B2  *  I  XI42)*XI43) 


+  XI 31)  ) 

+  XI 33 1  ) 

+  XUS)  ) 

011,2)  *  AlBl  * 
)  +  012,2) 
)  +  013,3) 


I  XI37)+XI38) 
*  AB3  *  XI41) 


SS8L448 
SSaL449 
SS8L450 
SS8L451 
SS8L452 
SS8L453 
SS8L454 
SS8L455 
SS8L456 
SS8L457 
SS8L458 
SS8L459 
SS8L460 
SS8L4t>l 
SS8L462 
SS8L463 
SS8L464 
SS8L465 
SS  8L46t> 
SS3L467 
SS8L46a 
SS8L469 
SS8L470 
SS8L471 
SS8L472 
SS8L47J 
SS8L474 
SS8L475 
SS8L47d 


2 

*  ALI2,4U,N,2,J)  * 

ERWI  I 

,K)  *  ERWIM 

fK) 

SS8L477 

360  CONTINUF 

SS8L478 

GO  TO 

1000 

SS8L479 

370  XI29) 

ALU 

,1,3,I,3,M) 

♦ 

ALI2,1,3,J,3,N) 

SS8L48G 

XI  30) 

ALU 

,5,3,1 ,3, M) 

ALI2,1,3,J,3,N) 

SS8L48i 

XI31) 

ALU 

,5,3,M,3,I ) 

* 

ALI2,1,3,J,3,N) 

SS8L482 

XI32) 

= 

ALU 

,1,3,I,3,M) 

* 

ALU, 5, 3, N, 3,  J) 

SS8L483 

XI  33) 

ALU 

,1,3,1 ,3, M) 

♦ 

ALU, 5, 3,  J, 3, N) 

SS8L4B4 

XI  34) 

ALU 

,4,3,M,3,I) 

♦ 

ALU, 4, 3, N, 3,  J) 

SS8L485 

XUS) 

ALU 

,4,3,I,3,M) 

* 

ALU, 4, 3,  J, 3, N) 

SS8L486 

XI  36) 

= 

ALU 

,3,3,1 ,3, M) 

♦ 

ALU,1,3,  J,3,N) 

SS8L437 

XI37) 

= 

ALU 

,5,3,M,3,I ) 

❖ 

ALU, 5, 3, J, 3, N) 

SS8L48a 

XUS) 

ALU 

,5,3,1 ,3, M) 

♦ 

ALU, 5, 3, N, 3,  J) 

SSBL489 

XU9) 

ALU 

,6,3,M,3,I) 

ALU, 4, 3,  J, 3, N) 

SS8L490 

XI40) 

= 

ALU 

,6,3,I,3,M) 

ALU, 4, 3, N, 3,  J) 

SS8L49i 

XI41) 

ALU 

,1,3,1 ,3, N) 

♦ 

ALU, 3, 3,  J, 3, N) 

SS8L492 

XI  42) 

ALU 

,4,3,M,3, I ) 

♦ 

ALU, 6, 3,  J, 3, N) 

SS8L493 

XI43) 

ALII 

,4,3,1 ,3,M) 

♦ 

ALU, 6, 3, N, 3,  J) 

SS8L494 

XI  44) 

ALU 

,2,3,I,3,M) 

♦ 

AL(2,2,3, J,3,N) 

SS8L495 

YI  12) 

=  AI2,2)  *  A6R2  *  XI29) 

SS8L496 

SS8L497 
SS8L49a 
SS8L499 
SS8L500 
)  SS8L501 
SS8L502 


*  4. *4181*  XI44)SS8L503 
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1 

2 

1 

2 

3 

4 


8(2,2)  *  ABIRI  ♦ 
X(29) 


) 


GO  TO  379 

375  Y(13)  =  -  8(1,2)  ♦  AlBRl  ♦  (  X(30)  *■  X(3l)  ) 

(  X(32)  +  X(33)  )  -  2. *8(2, 2)  *  ABR3 
-  2. *8(2, 3)*  R1  *  (  X(34)  *  X(35)  ) 

Y(14)  =  0(1,1)  *  A3B  *  X(36)  ♦  0(1,2)  ♦  AlBl 
0(1,2)  *  A18R2  *  (  X(30)  +  X( 31 )  )  + 

X(39)  *■  X(40)  )  *  0(2,2)  *(AB3  *  X(4l)  ♦  ABR4  *  X(29) 
AB1R2  *  (  X(32)  ♦  X(33)  )  )  ♦  2. *0(2, 3)  ♦  (  82  *  (  X(42) 
X(43)  )  +  R2  *  (  X(34)  *  X(35)  )  )  ♦  4. *0 ( 3 , 3 ) *A1 B 1*X ( 44 ) 
=  V(II,JJ)  +  Y(12)  +  Y(13)  ♦  Y(14) 

GO  TO  380 


( 

+ 


*  (  X(37) 
2.*0( 1,3) 


♦  X(38) 

♦  A2  * 


379  V(II,JJ) 

(F  (  NSTRNG  .EQ.  0 
DO  380  L= I, NSTRNG 


) 


V{1I,JJ)  =  V{1I,JJ)  +  ES(L)  *  XIYYS(L)  *  A3 

1  *  ESW(J,L)  *  ESW(N,L) 

2  +  GJS(L)  ♦  A162  *  AL(1,2,3,I ,3,M) 

3  *  ESDW(J,L)  *  ESOW(N,L) 


*  AL(1,3,3,I,3,M) 


380  CONTINUE 

IF  (  NRING 


.EQ.  0  )  GO  TO  390 


DO  390  K=l, NRING 

V(  I  1,JJ)  =  VIII, JJ)  + 


ERIK)  *  XIXXRIKI 

1  *  ERW(  I,K)  *  ERW(M,K) 

2  +  GJR(K)  *  A2B1  *  AL ( 2 ,2 ,3 , J , 3,N ) 

3  *  ERDW(l,K)  *  ERDW(M,K) 

390  CONTINUE 

IF  (  lELAST  .EQ.  1  )  GO  TO  400 
V(II,JJ)  =  V(II,JJ)  ♦  A3B  *  0(1,1) 

ALFAX  *  EVAL(2,1,3,I,1) 


*  83  *  AL(2,3,3,J,3,N) 


1 

2 

3 

4 

5 


( 

+ 

+ 

( 

♦ 


•  AL(2,1,3, J,3,N) 

*  EVAL(2,1,3,M,1) 


0  )  GO  TO  410 


BETAX 
AB3  * 

ALFAY 
BETAY 

400  CONTINUE 

IF  (  NPTSUP  .EQ. 

00  410  L=l, NPTSUP 

V(  II, JJ)  =  V(II,JJ)  +  PKC(L) 

1  *  EVAL(1,1,3,I,IGSPRX(L)) 

2  *  EVAL( 1,2,3, J, IGSPRY(L) ) 

410  CONTINUE 

IF  (  NLNSPR  .EQ.  0  ) 

00  430  L=l, NLNSPR 
IF  (  ITAGLS(L)  .EQ.  2 
V(Il,JJ)  =  V(II,JJ)  + 


*  EVAL(2,1,3,I,25)*  EVAL (2, 1 , 3 , M,25 ) 
0(2,2)  *  AL( 1,1, 3,1,3, M)  * 

*  EVAL(2,2,3,J,l)  *  EVAL(2,2,3,N,1) 

*  EVAL(2,2,3,J,25)*  EVAL (2 ,2 ,3 ,N,25 ) 


*  EVAL(1,1,3,M,  IGSPRXID) 

*  EVAL(l,2,3,N,IGSPRy(L)) 


GO  TO  430 

)  GO  TO  420 
PLINE(L)  *  AA 


*  ALII, 1,3, I, 3, M) 


1  * 

GO  TO  430 
420  V( I  I, JJ)  = 
1  * 

430  CONTINUE 

IF  (  NRING 


EVALI1,2,3,J,  IDISLSID)  *  EVAL  1 1  ,2,3  ,N,  I DI SLSI  L  ) ) 

V(II,JJ)  *  PLINEIL)  *  88  *  AL(2, 1,3,J,3,N) 

EVALIl, 1,3, 1,  IDISLSID)  *  EVAL  ( I  ,  1 ,3  ,M,  lOI  SLSI  L  )  ) 

.EQ.  0  )  GO  TO  450 


DO  450  K=l, NRING 
V{II,JJ)  =  VIII, JJ)  + 


1 

2 

3 

4 

5 

6 


SS8L504 

SS8L505 

SS8L506 

SS8L507 

SS8L508 

SS8L509 

SS8L510 

SS8L5il 

SS8L512 

SS8L513 

SS8L514 

SS8L515 

SS8L516 

SS8L517 

SS8L518 

SS8L519 

SS8L520 

SS8L521 

SS8L522 

SS8L523 

SS8L524 

SS8L525 

SS8L526 

SS8L527 

SS8L528 

SS8L529 

SS8L530 

SS8L531 

SS8L532 

SS8L533 

SS8L534 

SS8L535 

SS8L536 

SS8L537 

SS8L538 

SS8L539 

SS8L540 

SS8L541 

SS8L542 

SS8L543 

SS8L544 

SS8L545 

SS8L546 

SS8L547 

SS8L548 

SS8L549 

SS8L550 

SS8L551 

SS8L552 

SS8L553 

SS8L554 


ERIK)  ♦  (  ERW(I,K)  *  I  ARIK) 

♦  ERW(M,K)  *  (  BR2  *  AL I  2 , 1 , 3 , J ,3, N ) 

-  ZBARRIK)  *  BlRl  *  I  AL ( 2 ,5 ,3 , J ,3 , N)  *  AL(2,5 ,3, N,3, J ) ) ) SS8L555 

♦  £RDW(M,K)  *  I  -  XIXZRIK)  *  A1B1R1*AL(2,5 ,3, J,3,N)SS8L556 

♦  ARIK)  *  XBARRIK)  *  AIBR2  *  AL I  2 , 1 ,3 , J,3 , N)  I  )  SS8L557 

♦  ERDW(I,K)  *  I  ERW(M,K)*  (  -  XIXZRIK)  SS8L558 

♦  AIBIRI  *  AL(2,5,3,N,3,J)  +  ARIK)  *  XBARRIK)  *  A1BR2  SS3L559 
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7  ♦  AL(2,l,3tJ,3,N)  )  +  EROW(M,K)  ♦  XIZZR(K) 

8  *  A2BR2  *  AL(2,l,3,J»3,N)  )  ) 

450  CONTINUE 

IF  (  IFLAGD  .EQ.  0  )  GO  TO  480 

TTdIfJJ)  =  TTIIItJJ)  +  RHAB  *  AUl  1 1 .3  f  I  1 3  t  M)  *  AL 12  »!  »3  ,  J  »3,  N ) 
IF  (  NSTRNG  .EQ.  0  )  GO  TO  460 
DO  460  L=l, NSTRNG 

TT(II,JJ)  =  TT(II,JJ)  +  (  AL(l,l,3,I»3, 


*  ESW{N,L)  +  ABI  ♦ 
ESDWINtL)  *■  ESDWIJ 
XIYYS(L)  )  »  ESDWI 
AL( lt2,3,It3,M)  * 


0  )  GO  TO  470 


1  *  ESW(J,L) 

2  ESW(J,L)  * 

3  XIZZS(L)  + 

4  XIYYS(L)  * 

460  CONTINUE 

IF  (  NRING  .EQ. 

DO  470  K=l, NRING 

TT(IIfJJ)  =  TT(IItJJ)  +  RHOR(K)  *  (  ALi 

1  *  ERWII.K)  ♦  ERWIMtK)  ♦  XBARR 

2  ERW(ItK)  *  EROW(M,K)  +  ERDWII 

2  +  A2B  *  (  XIXXR(K)  ♦  XIZZR(K) 

3  ERDWII, K)  ♦  ERDW(M,K)  )  +  B1 

4  *  ERWII.K)  *  ERWIM.K)  ) 

470  CONTINUE 

IF  (  NLMASS  .EQ.  0  )  GO  TO  480 
DO  480  L=1,NLMASS 

TTIII.JJ)  =  TTIII.JJ)  *■  PMASSIL)  *  EVAL 
lEVALI I, 2, 3, J, IPWY(L) )*EVAL( 1,1,3,M, IPWW 
480  CONTINUE 

IF  (  lEDGE  .EQ.  0  )  GO  TO  510 
XI45)  =  0. 

DO  490  L=1,NPNX 
DO  490  K=1,NPNY 
X(45)  =  X(45>  -  PXIL.K) 

1  -  PYIL.K) 

2  -PXYIL.K) 

3 

490  CONTINUE 

UIKK.LL)  =  X(45) 

IF  I  NSTRNG  .EQ.  0 
DO  500  L= I, NSTRNG 
UIKK.LLI  =  UIKK.LL) 

1  ♦  ESWIJ.L) 

500  CONTINUE 

IF  (  NRING  .EQ.  0 
DU  510  K=l, NRING 
U(KK,LL)  =  UIKK.LL) 

1  *  ERWI I,K) 

510  CONTINUE 

IF  (  IFLAGW  .EQ.  0 
IF  I 
IF  I 


M)  *  I  AA  ♦  ASIL) 

YBARSIL)  *  ASIL)  *  I 
,L)  ♦  ESWIN.L)  )  *  AB2  *  I 
J,L)  *  ESOWIN.L)  )  +  A1  * 
ESWIJ.L)  ♦ESWIN.L) )*RHOSIL 


2,1,3,J,3,N)  ♦  I  BB  ♦  ARIK 
IK)  *  AIB  ♦  ARIK)  ♦  I 
,K)  ♦  ERWIM.K)  ) 

)  ♦ 

♦  AH2,2,3,  J,3,N)^XIXXRIK) 


II  .1,3, I .IPWWIL) )  ♦ 
IL))*EVALa.2.3,N,  IPWYID) 


♦  $WIL,1.2.I.M) 

♦  SWIL.l.l.IfM) 
♦($WIL,1,3,I,M) 

♦  $WIL.1,3.M.I  ) 


♦  $WIK,2,1 . J.N)  *  AIB 

♦  $WIK,2,2 , J.N)  ♦  ABI 

♦  $W(K,2.3.N, J) 

♦  $WIK.2.3. J.N)  ) 


)  GO  TO  500 

PAXSIL)  ♦ 
ESWIN.L) 

)  GO  TO  510 

PAXRIK)  * 
ERWIM.K) 


AL I  1 1 2 . 3 . I . 3 . M )  *  A1 


B1  ♦  ALI2 .2.3. J.3.N) 


) 


520 


521 


GO 

JJ  .GT.  NTUX^NTUY  + 
IFLAGW  .EQ.  2  )  GO 
X(46)  =  0. 

DO  520  K=1,NQTX 
00  520  L=1.NQTY 
XI46)  =  Xt46)  + 

QI  II  )  =  XI46) 

CONTINUE 


TO  1000 
NTVX*NTVY 
TO  521 


+  1  )  GO  TO  1000 


QQIK.L)  *  AB  *  PIK,1,1,3,I)  ♦  PtL,2,l,3,J) 


SS8L560 

SS8L56i 

SS8L562 

SS8L563 

SS8L564 

SS8L5t,5 

SS8L566 

SS8L56T 

SS8L568 

SS8L569 

SS8L570 

)SS8L57i 

SS8L572 

SS8L573 

SSbL574 

)SS8L575 

SS8L576 

SS8L577 

SS8L578 

SS8L579 

SS8L580 

SS8L581 

SS8L582 

SS8L583 

SS8L584 

SS8L585 

SS8L586 

SS8L587 

SS8L5a8 

SS8L589 

SS8L590 

SS8L591 

SS8L592 

SS8L593 

SS8L594 

SS8L595 

SS8L596 

SS6L597 

SS8L598 

SS8L599 

SS8L600 

SS8L601 

SS8L602 

SS8L603 

SS8L604 

SS8L605 

SS8L6U6 

SS8L607 

SS8L608 

SS8L609 

SS8L610 

SS8L611 

SS8L6i2 

SS8L613 

SS8L614 

SS8L615 
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IF  (  lEOGE  .EQ.  0  )  GO  TO  525 
IF  (  NSTRNG  .EQ.  0  )  GO  TO  522 
DO  522  L=1,NSTRNG 

SIIII  =  Sill)  *■  PAXS(L)  ♦  A1  ♦  ZBARS(L)  *  Pll,lt3t3tn  ♦  ESWIJ.L) 

522  CONTINUE 

IF  (  NRING  .EQ.  0  I  GO  TO  523 
DO  523  K=l, NRING 

Sdl)  =  Sdl)  -  PAXR(K)  *  (  -  ZBARR(K)  ♦  P(l*2»3t3fJ» 

1  *  ERW(I,K)  +  P{l,2,lf3tJ)  *  I  BRl 

2  ♦  ERWd,K)  +  BRl  ♦  XBARRIK)  *  ERDW(I,K)  )  ) 

523  CONTINUE 

DO  524  K=1,NPNX 
DO  524  L=l,NPNy 

524  Sdl)  =  S(d)  -  ABRl  *  PY(K,L)  *  PIK,lflf3,d  ♦  P(L,2,1,3,J) 

525  IF  (  NPTLDS  .EQ.  0  )  GO  TO  530 
DO  530  L=l, NPTLDS 

Qdd  =  Qdd  +  PC(L)  ♦  EVALd,l,3»I*IPXX(Ld 
1  *  EVALdf2,3,J,  IPYY(L)) 

530  CONTINUE 

IF  (  NPTMOM  .EQ.  0  )  GO  TO  550 
DO  550  L=l» NPTMOM 

IF  (  ITAGCM(L)  .EQ.  1  )  60  TO  540 

TAG  =  1  FOR  MY  ,  =  2  FOR  MX 
Qdd  =  Qdd  -  A1  *  FCIL) 

I  *  EVALi2,l,3f  I,  IFXXID)  *  EVALdt2 ,3,  J  ,IFYY(  L)  ) 

GO  TO  550 

540  Qdd  =  Qdd  -  B1  ♦  FCIL) 

1  *  EVALd,lf  3,  IflFXXID)  ♦  E  VAL  1 2 , 2 ,3,  J  ,  I F  YY  (  L  )  ) 

550  CONTINUE 

IF  (  NLNMOM  .EQ.  0  )  GO  TO  1000 
DO  570  L=l, NLNMOM 

IF  I  ITAGLM(L)  .EQ.  1  )  GO  TO  560 

Qdd  =  Qdd  -  AIB  ♦  PLMQM(L)  *  PU»2,i,3,J) 

1  *  EVAL{2,1,3,I,I0ISLM(L)) 


V(JJ«d) 
.EQ.  0  ) 
TTIJJtd) 

(  ITIME  ) 


GO  TO  570 
560  Qd  I  )  =  Q(  d  ) 

1 

570  CONTINUE 
GO  TO  1000 
580  Vd  I,  JJ)  = 

IF  I  IFLAGD 
TTdIfJJ)  = 

1000  CONTINUE 

CALL  STATUS 
TIME(6)  =  .01*ITIME(8) 
ET  =  TIME(6)  -  TIMEtS) 
C  ♦*  CHANGE  SIGN  ON  Q 

DO  1584  I=1,MATSIZ 
1584  Q(  I)  =  -Qd  ) 

DO  2584  I=1,MWSIZ 
DO  2584  J=1,MWSIZ 
2584  Ud  tJ)  =  -01  1 1  J) 

00  585  I=1,MATSIZ 
QHOLDd)  =  Qd) 
SHOLDd)  =  S(I) 

DO  585  J=1,MATSIZ 


-  ABl  *  PLMOMIL)  *  P(l»l»It3»I) 
*  EVAH2,2,3,J,I0ISLM(L)) 


GO  TO  1000 


SSdL616 

SS8L617 

SS8L618 

SS8L619 

SS8L620 

SS8L621 

SS8L622 

SS8L623 

SS8L624 

SS8L625 

SS8L626 

SS8L627 

SSBL628 

SS8L629 

SS8L630 

SS8L6il 

SS8L632 

SSdL633 

SS8L634 

SS8L635 

SS8L636 

SS8L637 

SS8L638 

SS8L639 

SS8L640 

SS8L641 

SS8L642 

SS8L643 

SS8L644 

SS8L645 

SS8L646 

SS8L647 

SS8L648 

SS8L649 

SS8L650 

SS8L651 

SS8L652 

SS8L653 

SS8L654 

SS8L655 

SS8L656 

SS8L657 

SSaL658 

SS8L659 

SS8L660 

SS8L661 

SS8L662 

SS8L663 

SS8L6t>4 

SS8L665 

SS8L666 

SS8L667 

SS8L668 

SS8L669 

SS8L670 

SS8L671 
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585 

VHOLO( I,J)  =  V(  I,J) 

SS8L672 

C 

SS8L673 

IF  (  INTPRT  .NE.  1  )  GO  TO  670 

SS8L674 

WRITE  (6,590)  ET 

SS8L675 

590 

FORMAT  COTIME  REQUIRED  TO  ASSEMBLE  MATRICES  =  SFT.B,'  SEC.') 

SS8L676 

WRITE  (6,610)  NAMEV 

SS8L677 

610 

FORMAT  CIMATRIX  •,A4) 

SS8L678 

DO  630  I=1,MATSIZ 

SS8L679 

WRITE  (6,620) 

SS8L680 

620 

FORMAT  ('O'  ) 

SSdL6dl 

630 

WRITE  (6,640)  (  V(I,J),  J=1,MATSIZ  ) 

SS8L682 

640 

FORMAT  (•  ',10E12.4) 

SS8L683 

IF  (  IFLAGD  ,EQ.  0  )  GO  TO  651 

SS8L684 

WRITE  (6,610)  NAMETT 

SS8L6a5 

DO  650  I=1,MATSIZ 

SS8L686 

WRITE  (6,620) 

SS8L687 

650 

WRITE  (6,640)  (  TT(I,J),  J=1,MATSIZ) 

SS8L638 

651 

CONTINUE 

SS8L689 

IF  (  lEDGE  .EQ.  0  )  GO  TO  661 

SS8L690 

WRITE  (6,610)  NAMEU 

SS8L691 

DO  660  I=1,MWSIZ 

SS8L692 

WRITE  (6,620) 

SS8L693 

660 

WRITE  (6,640)  (  U(I,J),  J=1,MWSIZ  ) 

SS8L694 

661 

CONTINUE 

SS8L695 

IF  (  IFLAGW  .EQ.  0  )  GO  TO  670 

SS3L696 

WRITE  (6,610)  NAMES 

SS8L697 

WRITE  (6,640)  (  S{J),  J=1,MATSIZ  ) 

SS8L698 

WRITE  (6,610)  NAMEQ 

SS8L699 

WRITE  (6,640)  (  Q(J),  J=1,MATSIZ  ) 

SS8L700 

670 

CONTINUE 

SS8L701 

RETURN 

SS8L702 

END 

SS8L703 

CC  =  00704 
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SUBROUTINE  SOLVE 
C 

DIMENSION  V{150,150),  T(150,150),  Z{150,150) 

DIMENSION  VV(22500),  TV(22500),  ZV{22t>00) 

DIMENSION  Zll  100, 100) ,Z2 1 100,50) fZ31 50 1 100) fZ41 50,50) 

DIMENSION  U(50,50),  Q(150) 

DIMENSION  WORKKISO),  W0RK21150) 

DIMENSION  SI  150) 

DIMENSION  ITIMEdZ),  TIME(50) 

DIMENSION  INDEX! 150) 

C 

COMMON  U 

COMMON  /  BLOCK  /  T 
COMMON  /  ARRAYS  /  V 

COMMON  /  CNTROL  !  IFLAGD,  IFLAGB,  IFLAGW,  IBCX,  IBCY,  1$,  lEDGE, 
1  J$(2),  KEY,  Ki(2),  INTPRT,  IKOF,  IFLEX 

COMMON  /  NUMBER  /  N02(6),  NTWY,  NMOOES,  N03(12),  NUVW,  NUV,  NW 
COMMON  /  NUMBER  /  ITX,  ITY 
COMMON  /  ZWORK  /  Z 

COMMON  /  PARAM  /  Q,  S,  WORKl ,  W0RK2 

COMMON  /  $TIME  /  TIME,  ITIME 

COMMON  /  MOOES  /  MM(50),  NN(50) 

C 

EQUIVALENCE  (  Zl(l),  Z(l)  ),  I  Z2(l),  ZllOOOl)  ) 

EQUIVALENCE  I  Z31L),  Z( 15001)  ),  (  Z4(l),  ZI20001)  ) 

EQUIVALENCE  (  VI1),VV(1)  ),  I  T(1),TV(1)  ),  I  Z(1),ZV(1)  ) 

C 

CALL  STATUS  (  ITIME  ) 

TIMEIIO)  =  ,01*ITIME(8)  -  TIME(l) 

IF  (  INTPRT  .EQ.  1  )  WRITE  (6,10)  TIMEIIO) 

10  FORMAT  COELAPSED  TIME  AT  BEGINNING  OF  '  ,7H •  SOLVE '  =  ',F7.2) 

C 

IF  I  IFLAGW  .NE.  0  )  GO  TO  20 

IF  I  IFLAGD  .NE.  0  )  GO  TO  90 

IF  I  IFLAGB  .NE.  0  )  GO  TO  170 

STATIC  DEFLECTION 

20  CONTINUE 

IF  I  lEOGE  .EQ.  1  )  GO  TO  40 
DO  30  1=1, NUVW 
DO  30  J=1,NUVW 
30  TII,J)  =  VI I,J) 

GO  TO  65 

40  DO  60  1=1, NUVW 
DO  60  J=1,NUVW 

IF  I  I.GT.NUV  .AND.  J.GT.NUV  )  GO  TO  50 
TII,J)  =  VI I,J) 

GO  TO  60 
50  K  =  I-NUV 
L  =  J-NUV 

Tl  I,J  )  =  VI  I  ,J)  +  UIK,L) 

60  CONTINUE 
65  CONTINUE 

IF  I  IFLEX. EQ.  0  )  GO  TO  70 


SS8M000 

SS8M001 

SS8M002 

SS8M003 

SS8M004 

SS8M005 

SS8M006 

SS8M007 

SS8M008 

SS8M009 

SS8MOiO 

SS8M011 

SS8M012 

SS8M013 

SS8M014 

SS8M015 

SS8M016 

SSSMOIT 

SS8M018 

SS8M019 

SS8M020 

SS8M021 

SS8M022 

SS8M023 

SS8M024 

SS8M025 

SS8M026 

SS8M027 

SS8M02a 

SS8M029 

SS8M030 

SS8M031 

SS8M032 

SS8M033 

SS8M034 

SS8M035 

SS8M036 

SS8M037 

SS8M038 

SS8M039 

SS8M040 

SS8M041 

SS8M042 

SS8M043 

SS8M044 

SS8M045 

SS8M046 

SS8M047 

SS8M048 

SS8M049 

SS8M050 

SS8M051 

SS8M052 

SS8M053 

SS8M054 

SS8M055 
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CALL  REDUCE  (  I , V ,Z I ,Z2 ,Z3t Z4 ,WORKl ,W0RK2 ,NUV , NW  ) 

CALL  FLEX 
70  CONTINUE 

on  80  I=1,NUVW 
80  WORKU  I )  =  -S(  n  -  Q(  1) 

CALL  SWITCH  (  T,  NUVW,  150t  O.t  1.  ) 

CALL  SIMEQ  (  T ,W0RK1, NUVW, 1 , 150, 150,0. , I ER  ) 

KEY  =  1 
GO  TO  1000 

VIBRATION 

90  CONTINUE 

CALL  STATUS  I  ITIME  ) 

TIME(ll)  =  .0l#ITIME(8)  -  TIMEIU 
DO  100  1=1, NUVW 
DO  100  J=1,NUVW 
100  Z( I,J)  =  VI  I,J) 

CALL  SWITCH  (  T,  NUVW,  150,  0.,  1.  ) 

CALL  ARRAY  ( 2 , NUVW, NUVW , 150 , 150, V V , V) 

CALL  ARRAY  1 2, NUVW, NUVW, 150 , 150, ZV , Z) 

CALL  ARRAY  ( 2 , NUVW, NUVW, 150 , 150 , T V, T > 

CALL  NROOT  ( NUVW , Z V ,T V , WORKl , VV ) 

CALL  ARRAY  ( 1 , NUVW, NUVW , 150 , 150, VV, V) 

00  120  J=1,NUVW 
W0RK2(J)  =  l.E+40 
DO  110  1=1, NUVW 

IF  I  WORKK  I  I.GE.W0RK2CJI  »  GO  TO  110 
W0RK2(J)  =  WORKIII) 

INOEX(J)  =  I 
110  CONTINUE 

120  WORKII  INDEX!  jn  =  l.E+40 
DO  130  J=1,NUVW 
WORKKJ)  =  W0RK2(J» 

DO  130  K=1,NUVW 
130  T(J,K)  =  V(K,INDEX(J» ) 

CALL  STATUS  I  ITIME  > 

TIME(12)  =  .01*ITIMEI8)  -  TIME(l) 

ET  =  TIME(12)  -  TIMEIll) 

IF  I  INTPRT  .EQ.  1  )  WRITE  (6,140)  ET 
140  FORMAT  COTIME  TO  SOLVE  FOR  EIGENVALUES  AND  EIGENVECTORS 
DO  55  1=1, NUVW 
BIG  =  ABSI T( I,NUV+1) ) 

NSAVE  =  1 
DO  59  J=2,NW 

IF  (ABS  (T( I,J+NUV)).LE.BIG  )  GO  TO  59 
BIG  =  ABS  (  TI I,J+NUV)  » 

NSAVE  =  J 
59  CONTINUE 
M  =  ITX 
N  =  ITY 

IF  I  NSAVE  .EQ.  1  )  GO  TO  3 
DO  2  J=2, NSAVE 
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IF  (  N+l-ITY  .GE.  NTWY  )  GO  TO  I 
N  =  N  +  l 
GO  TO  2 

1  N  =  ITY 
M  =  M  +  l 

2  CONTINUE 

3  CONTINUE 
MM( n  =  M 
NN( I )  =  N 

IF  (  WORKllN  .GT.  0.  )  WORKl  ( I » =SQRT(  WORKl  (I )  )/6 .283 1853 
55  CONTINUE 

WRITE  (6,160)  (  WORKKI),  MMII),  NNd)  ,  I  =  1,NUVW  ) 

160  FORMAT  Cl  FREQUENCY  • ,  7X,  •  M  •  ,5X ,  •  N  '  /  C  0  •  ,E  13.  5 ,4X  ,  12 , 4X,  1 2 ) ) 
KEY  =  2 
GO  TO  1000 
C 

C  BUCKLING 

C 

170  CONTINUE 

DO  180  1=1, NW 
DO  ISO  J=l,NW 
180  U(I,J)  =  -  U(I,J) 

C 

IF  (  IFLEX  .EQ.  0  )  GO  TO  190 

CALL  REDUCE  (  1, V , Z1 , Z2, Z3, Z4 , WORKl ,W0RK2 ,NUV, NW  » 

CALL  FLEX 
190  CONTINUE 

IF  (  IKDF  .NE.  0  )  CALL  KDF  I  8UCKNX  ) 

C 

IF  (  IFLEX  .EQ.  01  GO  TO  200 

CALL  YOSFEM  (  2, Z ,NW,NW , 150, U, NW , 50, V ,W0RK1  ) 

GO  TO  210 

200  CALL  REDUCE  (  2, V, Z1 , Z2 ,Z3, Z4 ,WORKl ,W0RK2 ,NUV, NW  ) 

CALL  YOSFEM  (  2 , V , NW, NW , 150 ,U , NW , 50 , Z , WORKl  ) 

210  CONTINUE 

IF  (  IFLAGB  .EQ.  1  )  CALL  EIGONE  (  U , WORKl , NW. 50  ) 

IF  (  IFLAGB  .EQ.  2  )  CALL  EIGALL  (  U, WORKl , NW , 50, 1 , 2  ) 

KEY  =  3 
1000  CONTINUE 
RETURN 
END 

SUBROUTINE  SWITCH  (  DIAG,  N,  NMAX,  FROM,  TO  I 
C  CHANGES  A  DIAGONAL  TERM  FROM  0  TO  1  OR  FROM  1  TO  0  . 

DIMENSION  DIAG(NMAX,N) 

DO  10  1=1, N 

IF  (  DIAGd.n  .EQ.  FROM  I  DIAGd,d  =  TO 
10  CONTINUE 
RETURN 
END 
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SUBROUTINE  YOSFEH  (  NOPT,  A,NRA  ,NCA,MRA,B,NC8,MRB,C,WORK 
C 

C  **  YOSFEM  =  YE  OLDE  SUBROUTINE  FOR  EFFICIENT  MULTIPLICATION. 

C  NOPT  =  I,  2,  OR  3 
C  **  =  I  .  COMPUTES  A  =  A  ♦  B 

C  =  2  »  COMPUTES  B  =  A  ♦  8 

C  **  =  3  t  COMPUTES  C  =  A  ♦  B 

C  **  A  =  AN  NRA  BY  NCA  MATRIX 

C  **  NRA  =  NUMBER  OF  ROWS  IN  A 

C  **  NCA  =  NUMBER  OF  COLUMNS  IN  A 

C  **  MRA  =  MAXIMUM  NUMBER  OF  ROWS  IN  A 
0**8  =  AN  NCA  BY  NCB  MATRIX 

C  **  NCB  =  NUMBER  OF  COLUMNS  IN  B 

C  **  MR8  =  MAXIMUM  NUMBER  OF  ROWS  IN  B 

C  **  C  =  AN  NRA  BY  NCB  MATRIX 

C  **  WORK  =  A  WORK  VECTOR  OF  LENGTH  NRA 

C 

DIMENSION  AIMRA.NCA),  BIMRB.NCB),  C(MRA,NCB),  WCRK(NRA) 
C 

IF  (  NOPT  .NE.  1  )  GO  TO  40 
DO  30  1=1, NRA 
DO  20  M=1,NCA 

20  WORKIM)  =  A( I,M) 

DO  30  J=1,NCB 
A( I, J)  =  0. 

DO  30  K=1,NCA 

30  AII.J)  =  A(1,J)  +  WORK(K)  *  B(K,J) 

GO  TO  100 

40  IF  (  NOPT  .NE.  2  )  GO  TO  70 
DO  60  J=1,NCB 
DO  50  M=1,NCA 

50  WORKIM)  =  B(M,J) 
on  60  1=1, NRA 
B(I,J)  =  0. 

DO  60  K=1,NCA 

60  BII,J)  =  B(I,J)  ♦  A(I,K)  ♦  WORKIK) 

GO  TO  100 

70  DO  80  1=1, NRA 
DO  80  J=1,NCB 
C(I,J)  =  0. 

DO  80  K=1,NCA 

80  C(I,J)  =  C(I,J)  +  A(I,K)  ♦  B(K,J) 

100  RETURN 
END 
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c 


c 


c 

c 


c 


c 

c 


SUBROUTINE  EIGONE  (  A,  X*  N,  NRA  I 


THIS  SUBROUTINE  COMPUTES  THE  INVERSE  OF  THE  LARGEST  EIGEN  VALUE 
OF  AN  N  BY  N  MATRIX,  AND  THE  CORRESPONDING  MODE  SHAPE,  BY  SIMPLE 
ITERATION. 

CAST  PROBLEM  IN  THE  FORM  A*X  =  X/OLAMB 


DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


A(NRA,N) , 
B( 150,150) 
USED! 150), 
XXX( 150) , 


X(N) 

ITIME(12) 
XA( 150) , 
XY( 150) , 


TIME(50) 

XX(150) 

MPNIISO) 


SS8N045 

SSdN046 

SS8N047 

SS8N048 

SS8N049 

SS8N050 

SS8N051 

SS8N052 

SS8N053 

SSaN054 

SS8N055 

SS8N056 


COMMON  /  ZWORK  /  B 

COMMON  /  PARAM  /  XA,  XX,  USED, 

COMMON  /  STIME  /  TIME,  ITIME 

COMMON  /  CNTROL  /  I$(12),  INTPRT 

CALL  STATUS  (ITIME) 

TIME(20)  =  .01*ITIME{8)  -  TIME(l) 

POIDLE=. 00001 

MAO^  72 

IKEP=1 

OLAMB  =  0. 

DO  1  1=1, N 
1  X( I  )=.l 
M=1 

6  XMIN=0 
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SSdN086 
SS8N087 
SS3N088 
SS8N089 
SS8N090 
SS8N091 
SS8N092 
SS8N093 
SS8N094 
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SS8N096 
SS8N097 
SS8N098 
SS8N099 
SS8N100 


OLAMBO= OLAMB 

A  NEW  MODE  SHAPE  IS  COMPUTED  AS  A  TIMES  X 
OF  THE  NEW  X  IS  STORED  IN  XMIN. 

DO  44  1=1, N 
44  XA( I )=X( I ) 

DO  42  K=l,6 
DO  3  1=1,  N 
XX( I )=0. 

DO  3  J=1,N 

3  XX(I)=XX(I)+  A(I,J)*X(J) 

XPQ=X(N)/XX(N) 

XPR=XPQ/ABS(XPQ) 

DO  41  1=1, N 
XXX( I)=X( I ) 

41  X( I )  =  XX(  I  ) 

42  CONTINUE 
DO  2  1=1, N 

IF(ABS(XMIN)-ABS(XX(I  )))7,2,2 
7  XMIN  =  XX( I ) 

JJ=  I 

MPNI  IKEP)=I 
2  CONTINUE 

THE  NEW  VECTOR  IS  NORMALIZED  WITH  RESPECT  TO  XMIN. 

DO  4  1=1, N 

4  XX(  I)=  XX( I )/  XMIN 

THE  LATEST  APPROXIMATION  TO  1  DIVIDED  BY  THE  LARGEST  EIGEN  VALUE 
IS  COMPUTED. 

OLAMB=XA( J J )/XMIN 

OLAMB=  ( lABSIOLAMB) )*♦. 1666667)*XPR 
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C  THE  NEW  VECTOR  IS  STORED  FOR  A  NEW  ITERATION. 

DO  9  I  =l,N 

9  xm  =  xx{ n 

C  THE  RELATIVE  CHANGE  IN  OLAM8  IS  THE  BASIS  FOR  CONVERGENCE. 
IFIABSI lOLAMB  -  OLAMBO)  /OLAMB  )  .LT.PDIOLEIGO  TO  5 

IFIM.GT.ISIPDIDLE  =.0005 
IF  {M.LT.50J  GO  TO  6 
WRITE (6t 8 lOLAMBO, OLAMB 
8  FORMAT!  • ONO  CONVERGENCE • 2E 15 .7 ) 

XY( IKEP)=aLAMB 
DO  60  IJ=l.N 
60  6( IKEP, IJ )  =X( IJ ) 

GO  TO  39 

5  IF(M.GT.15)G0  TO  20 
M=M+1 
GO  TO  6 

20  IF  (  INTPRT  .EQ.  I  )  WRITE  (6,12)  M 
i2  FORMAT!  '0'14,'  ITERATIONS') 

DO  43  1=1, N 

43  X(  n=!X!  I)*XXX!  I ) /OLAMB/XMIN) /2. 

DO  55  1=1, N 
55  B( IKEP, I)=X( I) 

XY! IKEP)=OLAMB 

39  CONTINUE 

500  DO  38  J=1,IKEP 
X! J)  =  XY( J  ) 

DO  38  1=1, N 
38  A!J, I )  =  8! J, I ) 

40  CONTINUE 

CALL  STATUS  (ITIME) 

TIME(21)  =  .0l*ITIME!8)  -  TIME(l) 

ET  =  TIME!2l)  -  TIME!20) 

IF  !  INTPRT  .EQ.  I  )  WRITE  !6,600)  ET 
600  FORMAT  COTIME  REQUIRED  TO  FIND  ONE  EIGENVALUE  AND  EIGENVECTOR 
I  ,F7.2) 

RETURN 

END 
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SUBROUTINE  EI6ALL  (  A,  X,  N,  NRA ,  ITAG,  MODES  I 

C 

C  **  THIS  SUBROUTINE  FINDS  ALL  THE  EIGENVALUES  OF  THE  NRA  BY  N 
C  **  MATRIX  A.  IT  ALSO  FINDS  THE  EIGENVECTORS  CORRESPONDING  TO 
C  **  THE  FIRST  ‘MODES'  EIGENVALUES. 

C  **  THE  MATRIX  EQUATION  IS  IN  THE  FORM  A*X  =  X/EGNVAL 

C 

DIMENSION  A(NRA,NI,  X(N» 

DIMENSION  USED(150)t  XXI 1501 i  W0RK13000) 

DIMENSION  ZI150,l50)t  XY( 150) ♦  NDUMIIISO),  N0UM2tl50) 
DIMENSION  VEC(150),  ITIMEIIZ),  TIMEI50) 

C 

COMMON  /  ZWORK  /  Z 

COMMON  /  PARAM  /  XX»  XY,  USED,  VEC,  NDUMl ,  NDUM2 
COMMON  /  EIGWRK  /  WORK 

COMMON  /  CNTROL  /  IFLAGD,  I$I11),  INTPRT 
COMMON  /  COMMON  /  DUMCOM(150) 

COMMON  /  $TIME  /  TIME,  ITIME 

C 

DO  10  J=1,N 
10  XU)  =  0. 

DO  20  1=1, N 
DO  20  J=1,N 

20  Z( I,J)  =  A(  I,J) 

IPRNT  =  INTPRT 
CALL  STATUS  (ITIME) 

TIME(17)  =  .01*ITIME(8)  -  TIMEIl) 

CALL  HESSEN  (  Z,  N,  150  ) 

CALL  QREIG  I  Z,  N,  XY,  XX,  IPRNT,  150  ) 

CALI  STATUS  I  ITIME  ) 

TIME118)  =  .01*ITIME(8)  -  TIMEIl) 

ET  =  TIME( 18)  -  TIME! 17) 

IF  I  INTPRT  .£Q.  1  )  WRITE  (6,21)  ET 

21  FORMAT  COTIME  REQUIRED  TO  FIND  ALL  EIGENVALUES  =  •,F7.2) 

IF  (  ITAG  .EQ.  3  )  GO  TO  70 

GREAT=  0, 

DO  71  1=1, N 

IF(XX( I).NE.O.)GO  TO  71 
IF  (  XY(I)  .EQ.  0.  )  GO  TO  71 
IFIABSIGREAT) .GT.ABS(XY( I ) ) )G0  TO  71 
GREAT  =  XYII) 

71  CONTINUE 
GREAT2  =  -0. 

DO  72  1=1, N 

IF(XX( I).NE.O.)GO  TO  72 

IF  (  XY(I)  .EQ.  0.  )  GO  TO  72 

IF(GREAT*XY(I).GT.0..0R.ABS(GREAT2).GT.ABS(XY(I)))  GO  TO  72 
GREAT2  =  XY( I > 

72  CONTINUE 
MOOES  =  2 
XY(1)=  GREAT 
XY(2)=  GREAT2 
X(l)=  1. /GREAT 

IF(ABS(GREAT2).LT.1.E-40)G0  TO  80 
X(2)=  1./GREAT2 
GO  TO  73 
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80  X(2)=0. 

MOOES  =  1 
GO  TO  73 
70  CONTINUE 
00  50  J=1,N 

IF  (  XYIJ)  .NE.  0.  )  XY(J)  =  l./XYIJJ 
50  CONTINUE 
DO  74  J=1,N 

IFIXXI Jl.NE.O.IXYI J)=  0. 

DO  75  I=J,N 

IFIXXI I). NE.O. IGO  TO  75 
IF  I  XYII)  .EQ.  0.  )  GO  TO  75 
IFIXYI  n.LT.XYI  JHGO  TO  75 
GREAT=  XYIJ) 

XYl J)=  XYII  ) 

XYII)=  GREAT 
GREAT=  XXIJ) 

XXIJ)=  XX(I) 

XXtI)=  GREAT 
75  CONTINUE 

IF  I  XYIJ)  .NE.  0.  )  XU)  =  l./XYIJ) 

74  CONTINUE 
73  CONTINUE 

DO  77  1=1, MOOES 
DO  78  J=1,N 
00  78  K=1,N 

78  ZIJ,K)  =  AIJ,K) 

EGNVAL  =  XI  I  ) 

IF  I  ITAG  .NE.  3  )  EGNVAL  =  l./XII) 

CALL  EGNVCT  I  Z,  XX,  EGNVAL,  VEC ,  NDUMl ,  NDUM2 ,  N,  150,  IPRNT  ) 
JO  =  I  I-D'C'N 
on  79  J=1,N 
K  =  JO  +  J 

79  WORKIK)  =  VECIJ) 

77  CONTINUE 

00  90  1=1, MOOES 
J  =  II-1)*N 
DO  90  K=l,N 
L  =  J  +  K 

90  AI I ,K)  =  WORKIL) 

CALL  STATUS  IITIME) 

TIME(19)  =  .01*ITIMEI8)  -  TIMEIl) 

ET  =  TIME! 19)  -  TIME! 18) 

IF  I  INTPRT  .EQ.  1  )  WRITE  (6,91)  ET 

91  FORMAT  1‘OTIME  REQUIRED  TO  FIND  EIGENVECTORS  =  SFT.Z) 

RETURN 

END 
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SUBROUTINE  EGNVCT  (  Clt  CZt  EIGEN,  C3 ,  M,  N2,  N,  NROWS,  NTIME  ) 

SUBROUTINE  TO  OBTAIN  EIGENVECTOR  FROM  REAL  NON-SYMMETRI C 
MATRICES  FOR  WHICH  THE  EIGENVALUE  IS  KNOWN.  THE  METHOD 
USED  IS  THE  DIRECT  METHOD  OUTLINED  IN  ERR-FW-  BY  OR. 

A.  M.  CUNNINGHAM.  ALL  ARITHMETIC  IS  IN  DOUBLE  PRECISION. 


DIMENSION 


1 


ClINROWS, NROWS) , 
NZINROWS) 


C2(NR0WS),  C3(NROWSI,  NIINROWS), 


EIGEN 


10 

20 


30 

35 

40 


50 


II3  =  N 
II2  =  N  -  1 
IF  (NTIME  .NE. 

ITl  =  NKB) 

01  =  0.0  DO 
00  20  J=1,N 
Nl(J)  =  J 
N2(J)  =  J 
C1(J,J)  =  CIIJ.J) 

DO  10  1=1, N 

=  ABS(C1(I,J)) 
(D1-D2)  5,10,10 
=  02 
=  I 
=  J 
CONTINUE 
CONTINUE 
DO  150  K6=2,N 
IF  (C1(II,J1))  50,30,50 
K5  =  K6  -  1 
WRITE  (6,40)  K5 
FORMAT  (IHl,  4X,57H  THE 


0  )  CALL  STATUS  (Nl) 


02 

IF 

01 

II 

J1 


REDUCED  MATRIX  WAS  FOUND  TO  BE  SINGULAR 


SS8Q000 

SS84G01 

SS8Q002 

SS8Q003 

SS8Q004 

SS8U005 

$580006 

SS8U007 

SS8U003 

SS8Q009 

ssauoio 

SS80011 

SS8U012 

SS8G013 

SS8Q014 

SS8g0l5 

SS8Q016 

SS8U017 

SS8Q018 

SS8ti019 

SS8Q020 

SS8Q021 

SS8Q022 

SS3Q023 

SS8Q024 

SS8Q025 

SS8Q026 

SS8Q027 

SS8Q028 

SS8Q029 

SS8U030 

0NSS8Q031 


60 


ITERATION,  14  ) 

SS8Q032 

NKl)  =  1 

SS8Q033 

GO  TO  1000 

SS8Q034 

SS8Q035 

D1  =  1.0/C1( 11, Jl) 

SS8Q036 

D2  =  Cl( 11, II3) 

SS8Q03/ 

03  =  C1(II3,J1) 

SSaQ038 

D4  =  C1(II3,II3) 

SS8Q039 

DO  60  1=1,112 

SS8Q040 

C3( I)  =  Cl( I,J1) 

SS8Q041 

Cl(  I,J1)  =  CK  I,I  13) 

SS8Q042 

Cll I,II3)  =  -C3( I)*D1 

SS8Q043 

05  =  -CK  11,  I)*01 

SS8Q044 

C1(I1,I)  =  C1(II3,I) 

SS8Q04b 

C1(II3,I)  =  05 

SS8Q04fa 

CONTINUE 

SS8Q047 

C3(  ID  =03 

SS8Q048 

C1(I1,J1)  =  04 

SS8Q049 

CK  1 13, Jl)  =  -02*01 

SS8Q05a 

C1(I1,I13)  =  -03*01 

SS8Q051 

CKII3,II3)=  01 

SS8Q052 

IF  ( II3  .EQ.  N)  GO  TO  80 

SS8Q053 

II4  =113+1 

SS8Q054 

DO  70  I=II4,N 

SS8Q0!>5 
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D6  =  Cl( 1 1, I ) 

Cl(  II, I )  =  Cl( II3, I ) 

C1UI3,I)  =  D6 

C3(  I)  =  Cl( I, Jl) 

Cl( I,J1)  =  Cl( 1,113) 

70  Cin,II3)  =  C3(  1) 

80  I  =  NKJl) 

NUJl)  =  Nl(  II3) 

N1III3)  =  I 

I  =  N2(  ID 
N2nD  =  N2(  II3) 

N2(II3)  =  I 

07  =  0.0  DO 
on  140  J=1,II2 
08  =  C1(II3,J) 

DO  130  1=1,112 

CI(I,J)  =  CUI,J)  +  C3n  )*D8 
09  =  ABS  (CD  I,  J)  ) 

IF  (07-09)  120,130,130 
120  07  =  09 

II  =  I 
Jl  =  J 

130  CONTINUE 
140  CONTINUE 

113  =  1 13  -  1 
II2  =112-1 
150  CONTINUE 


160  C3(2)  =  C1{2,1) 

C3{ 1)  =  1.0 
00  180  J=3,N 
C3{J)  =  0.0  DO 
Jl  =  J-1 
on  170  1=1, Jl 

C3(J)  =  C3(J)  *■  C3(I)*C1(J,I) 

170  CONTINUE 
180  CONTINUE 

IF  (  ABS(Cl(l,l)  )  .LT.  1.0  E-20 
00  201  K6=l,2 

DO  184  J=1,N 
II  =  N2(J) 

on  182  1=1, N 

IF  (  II  .EQ.  Nl( I )  )  GO  TO  184 
182  CONTINUE 

184  C2( J)  =  C3( I ) 

00  190  J=2,N 
II  =  N  -  J  +  1 
Jl  =  II  1 
DO  185  1=1,11 

C2II)  =  C2(I)  ♦  CI( I, J1)*C2( Jl) 

185  CONTINUE 
190  CONTINUE 

01  =  Cl( 1, 1)/C2( 1) 


SS8Q056 

SS8Q057 

SS8Q058 

SSttQ059 

SS8Q060 

SS8Q061 

$580062 

SS8Q063 

SS8Q064 

SS8Q065 

5S8Q066 

SS8Q067 

SS8Q068 

$580069 

5580070 

5580071 

5580072 

5580073 

$580074 

$580075 

S58Q076 

5580077 

5580078 

SS80079 

5580080 

5580081 

5580032 

5580083 

5580084 

5580085 

5530086 

$580087 

5580088 

5530089 

5580090 

5580091 

SS8Q092 

SS3Q093 

)  GG  TO  202  SS8Q094 

SS80095 

5580096 

SS8Q097 

5580098 

S58Q099 

5580100 

5580101 

5530102 

5580103 

558Q104 

5580105 

5580106 

5580107 

5580108 

5580109 

5580110 

5580111 
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C3(l)  =  1.0  00 
00  200  J=2,N 
II  =  J  -  I 

C3(J)  =  C2(J)*CllJt J)*01 
00  195  1=1,11 

C3(j)  =  C3(j»  *■  ci(j,n*c3(n 

195  CONTINUE 

200  CONTINUE 

201  CONTINUE 

C3(n  NOW  CONTAINS  THE  EIGENVECTOR  WHICH  MUST  BE  RE-ARRANGEO 
ACCORDING  TO  THE  ORDER  DICTATED  BY  N1(I»  BACK  TO  THE  ORIGINAL 
ORDER. 

202  DO  230  1=1, N 
II  =  NKI) 

NKI)  =  I 

205  IF  (Il-I)  210,230,210 
210  01  =  C3(  ID 

C3(ID  =  C3(  I) 

C3{  n  =  01 
K  =  NllID 
Nl(  ID  =  II 
II  =  K 
GO  TO  205 
230  CONTINUE 
C 

IF  INTIME)  240,260,240 
240  CALL  STATUS  INI) 

A1  =  INH8)  -  ITD*0.01 
WRITE  16,250)  N,A1 

250  FORMAT  I  1H0,////,42H  THE  TOTAL  TIME  FOR  OBTAINING  THE 

1  ,//,  25H  EIGENVECTOR  OF  ORDER  ,I3,6H  IS  ,E12.5, 

2  9H  SECONDS.  ) 

260  Nil  1)  =  2 

C 

1000  RETURN 
END 


SS8Q112 

SSSOlii 

SS8Q114 

SS8Q115 

SS8Qli6 

SSdQllT 

SS8Q1I8 

SS8U1I9 

SS8Q120 

SSi>Q121 

SS8Q122 

SSdgi23 

SS8Q124 

$S8Q125 

SSdQ126 

SS8Q127 

SS8Q128 

SSaQ129 

SS8Q130 

SS3Q131 

SS8Qi32 

ssagiij 

SS8Q134 

SS8Q135 

SS8Q136 

SS8Q137 

SS8Q138 

SS8Q139 

SSaQ140 

SS8Q141 

SS8Q142 

SS8Q143 

SS3U144 

SS8Q145 

SSBQ14t> 

SS8Q147 

SS8U14d 

SS8Q149 


CC  =  00150 
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SUBROUTINE  DISPLA  (  C»  ITAG  > 

**  THIS  SUBROUTINE  CALCULATES  AND  PRINTS  DEFLECTIONS.  CURVATURES, 
**  MOMENTS,  SHEARS  AND  EDGE  REACTIONS 


DIMENSION 

F(15,25,25), 

FMAXI 15), 

$(3 

,4,4)  , 

C(150) 

DIMENSION 

RAI2,25) , 

RB(2,25), 

RLNI25) 

DIMENSION 

Al 3,3) , 

B(3,3) , 

0(3 

,3) 

DIMENSION 

PKCI50), 

IGSPRXI50) 

,  IGSPRYI50) 

DIMENSION 

PLINEI50), 

I0ISLSI50) 

,  ITAGLSISO) 

DIMENSION 

£14,2,3,10,25) 

COMMON 

/ 

ARRAYS  /  F, 

FMAX 

COMMON 

/ 

VALUES  /  E 

COMMON 

/ 

PARAM  /  H12250), 

PKC, 

IGSPRX, 

IGSPRY, 

PLINE, 

lOISLS, 

ITAGLS 

COMMON 

/ 

ABO  /  A, 

B, 

D 

COMMON 

/ 

GEOM  /  AA, 

BB, 

RR 

COMMON 

/ 

CNTROL  /  NCNTt7), 

IREACT, 

I  OUT 

COMMON 

/ 

NUMBER  /  NPLYS, 

NTUX, 

NTVX, 

NTMX, 

NTUY, 

NTVY, 

NTWY, 

NMOOES, 

NNUMI 10) , 

NPTSUP 

NLNSPR, 

NUVM, 

NUV, 

NW 

EQUIVALENCE  ( H{ I ) , RA ( I ) ) , ( H( 51 ) ,RB( 1 ) ) , { HI  101 ) ,RLN( 1 ) ) 
EQUIVALENCE  (H(126),$(in 

DATA  NMW  /  'W*  /,  NMU  /  'U*  /,  NMV  /  'V  / 

C 

ITHERY  =  1 

40  DO  100  K=l,25 
DO  100  L=l,25 
DO  41  Kl=l,3 
DO  41  K2=l,4 
DO  41  K3=l,4 

41  $(Kl,K2,K3)  =  0. 

M  =  I 

IF  {  ITAG  .EQ.  3  )  M  =  3 

IF  (  lOUT  .EQ.  1  .AND.  IREACT  .EQ.  0  »  M=3 

42  DO  80  N=M,3 

DO  80  I=1,NTWX 
DO  80  J=1,NTWY 

IF  (  N.EQ.l  )  II  =  (I-1)*NTUY  +  J 

IF  (  N.EQ.2  )  II  =  NTUX+NTUY  +  n-l)*NTVY  +0 

IF  (  N.EQ.3  )  II  =  NUV  ♦  (I-1)*NTWY  ♦  J 

IF  (  N.EQ.3  .AND.  ITAG.EQ.3  )  II  =  II  -  NUV 

IF  (  N.EQ.l  )  GO  TO  50 

IF  (  N.eQ.2  )  GO  TO  60 

IF  (  N.EQ.3  )  GO  TO  70 

50  JCN,2,1)  =  ${N,2,1)  +  E(2,1,N,I,K)*EI1,2,N,J,L)*CIII)  /AA 
$(N,3,I)  =  ${N,3,1)  ♦  E(3,1,N,I  ,K)*E{l,2,N,J,L)*Cnn  /AA/AA 
$IN,2,2)  =  ${N,2,2)  +  E(2,1,N,I ,K)*E(2,2,N,J,L)*C{ II)  /AA/BB 
${N,1,3)  =  $(N,1,3)  ♦  EI1,1,N,I,K)*E(3,2,N, J,L)*C( II)  /BB/BB 
SIN, 1,2)  =  SIN, 1,2)  +  Etl,l,N,I,K)*E(2,2,N,J,L)*CIII)  /BB 
SIN, 1,1)  =  SIN, 1,1)  +  EI1,1,N,I,K)*E11,2,N,J,L)*CI II) 

GO  TO  80 

60  SIN, 2,1)  =  SIN, 2,1)  *  EI2,1,N,I,K)*E(1,2,N,J,L)*CI II)  /AA 
SIN, 3,1)  =  SIN, 3,1)  ♦  EI3,1,N,I,K)*E(1,2,N,J,L)*CIII)  /AA/AA 


SS8R000 

SS8R001 

SS8R002 

SS8R003 

SS8R004 

SS8R005 

SS3R006 

SS8R007 

SS8R003 

SS8R009 

SS8R010 

SS8K011 

SS8R0i2 

SS8R013 

SS8R014 

SS8R015 

SS8R016 

SS8R017 

SS8R018 

SS8R019 

SS8R020 

SS8R021 

SS8R022 

SS8R023 

SSSR024 

SS8R025 

SS8R026 

SS8R027 

SS8R023 

SS8R029 

SS8R030 

SS8R031 

SS8R032 

SS8R033 

SS8R034 

SS8R035 

SS8R0i6 

SS8R037 

SS8R038 

SS8R039 

SS8R040 

SS8R041 

SS8R042 

SS8R043 

SS8R044 

SS8R045 

SS8R046 

SS8R047 

SS8R048 

SS8R049 

SS8R050 

SS8R051 

SS8R052 

SS8R053 

SS8R054 

SS8R055 
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$(N,2,2)  =  $(N,2,2»  +  E(2,l,N,I,K)*E(2,2tN»J»L)*C( ID 

$(N,l,3)  =  $(N,1,3J  +  E( 1,1,N,I,K)+E(3,2,N, J,L)*C( in 

${N,l,2)  =  $(N,l,2)  +  El  l,l,N,I,K»*E(2,2,N,J,L)*C(in 

=  $(N,1,1)  +  Ell,l,N,I,K)*EU,2,N,J,L)*C{II) 

GO  TO  80 

70  $(N,1,1)  =  $(N,1,1)  +  E(l,liN,I,K)*E(l,2,N.JfL)*C(in 
IF  (  lOUT  .EQ.  1  .AND.  IREACT  .EQ.  0  J  GO  TO  80 
$(N,2,n  =  $lN,2tl)  ♦  E(2,l,N,I,K)*Ellt2»N,J,L>«CIII» 

$(N,3,l)  =  $(N,3,1)  +  EC3,l,N,I,K)*Ell,2,N,J,L)*C(in 

$(N,4,U  =  $(N,4,1)  +  E(4,lfNtI.K)*£(l,2tN,J,L)*C(in 

$(N,3,2)  =  $(N,3,2)  +  Et3,l,N,I,K)*EI2t2,N,J,L)*Cni» 

SIN, 2, 2)  =  $IN,2,2»  +  EI2,l,N,I,K)*E(2,2,N,J,L)*Cnn 

SIN, 2, 3)  =  SIN, 2, 3)  ♦  E 1 2 , 1 ,N, I , K ) *E I  3, 2,N, J ,L) *CII I ) 

SIN, 1,4)  =  SIN, 1,4)  +  EIl,l,N,I,K)*EI4,2,N,J,L)*CIII) 

SIN, 1,3)  =  SIN, 1,3)  +  EI1,1,N,I,K)«EI3,2,N,J,L)«CIII) 

SIN, 1,2)  =  SIN, 1,2)  +  EI1,1,N,I,K)*EI2,2,N,J,L)*CCII) 

80  CONTINUE 

FI  1,K,L)  =  St  3, 1, 1) 


/AA/BB 

/BB/BB 

/BB 


/AA 

/AA/AA 

/AA/AA/AA 

/AA/ AA/BB 

/AA/BB 

/AA/BB/BB 

/BB/BB/BB 

/BB/BB 

/BB 


IF  I  lOUT  .EQ.  1 

.AND. 

IREACT 

.EQ. 

0  ) 

GO 

TO 

100 

FI2,K,L)  =  SI  1, 1, 

1) 

FI3,K,L)  =  SI2,1, 

1) 

IF  I  lOUT  .EQ.  2 
EX  =  SI1,2,1) 

.AND. 

IREACT 

.EQ. 

0  ) 

GO 

TO 

100 

EY  =  SI2,1,2)  ♦  St3,l,l)/RR 
EXY=  SI1,1,2)  4-  SI2,2,1) 

XK  =-SI3,3,l) 

IF  I  ITHERY  .NE.  1  )  GO  TO  85 
YK  =  SI2,1,2)/RR  -  SI  3,1,3) 

XYK=  2.*I  SI2,2,1)/RR  -  SI3,2,2)  ) 

GO  TO  86 

85  YK  =  -SI3,1,3)  -  SI3,1,1)/RR/RR 

XYK  =  -2.*S13,2,2)  -  SI1,1,2)/RR  ♦  SI2,2,1)/RR 


1  +0I1,3)*XYK 

FI  11,K,L)=  BI 1,2) *EX+B 12,2) *EY+B 12,3) *EXY+D I  1,2) *XKfD 12,2 )*YK 
1  +D12,3)*XYK 

FI  12,K,L)=  BI  1,3)  *EX4-8I  2,3)  *EY+B  13,3)  ♦EXY+D  11,3)  ♦XK+D  12,3)  *YK 
1  +0t3,3)*XYK 


SS8R056 

SS8R057 

SS8R058 

SS8R059 

SS8R060 

SSdK061 

SS8R062 

SS8K063 

SS8R0<>4 

SS8R065 

SS8R066 

SS8R067 

SS8R068 

SS8R069 

SS8R070 

SS8R071 

SS8R072 

SS8R073 

SS8R074 

SS8RU75 

SS8R076 

SS8R077 

SS8K078 

SS8R079 

SS8R030 

SS8R081 

SS8R082 

SS8R083 

SS8R084 

SS8R0d5 

SS8R086 

SS8R087 


86  CONTINUE 

SS8R038 

Ft4,K,L)  =  EX 

SS8R089 

FI5,K,L)  =  EY 

SS8R090 

FI6,K,L)  =  EXY 

SSaK091 

FI7,K,L)  =  XK 

SSaR092 

FI8,K,L)  =  YK 

SS8R093 

Ft9,K,L)  =  XYK 

ssar<094 

IF  I  lOUT  .EQ.  3  .AND.  IREACT  .EQ.  0  )  GO  TO  100 

SSaR095 

SS8R096 

SS8R097 

SS8R098 

SS8R099 

SS8R100 

SS8R101 


c 

LET  SI1,4,4) 

^  MX,X 

SS8Ri02 

c 

SI2,4,4) 

=  MY,Y 

SS8R103 

c 

St3,4,4) 

=  MXY,X 

SS8R104 

c 

SI3,4,3) 

==  MXY,Y 

SS8R105 

511.4.4)  =  BI1,1)*SI1,3,1)  4-  Bl  1,2)*I  SI2,2,2)  +  S13,2,1)/RR) 

4-  BI1,3)«ISI  1,2,2)4-SI2,3,1))  -  0  II ,  1 )  «SI  3 ,4,1 ) 

+  DI1,2)*ISI2,2,2)/RR-SI3,2,3))  +  0I1,3)*2.*CSI2,3,1)/RR 
-  SI3,3,2)  ) 

512.4.4)  =  BI1,2)4c$I1,2,2)  +  BI 2 ,2)  ♦!  SI  2 , 1 , 3  )  +  S  13, 1 ,2  )/RR ) 

4-  BI2,  3)«ISI  1,1,3)4-SI2,2,2))  -  0 1 1 , 2 )  *SI3 , 3,2 ) 


SS8R106 

SS8R107 

SS8R108 

SS8R109 

SS8R110 

SS8R111 
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2  +  Dt2»2)*( ${2,l,3)/RR-$(3,l,4)) 

3  ♦  Di2,3)*2.*C$(2,2,2)/RR  -  $(3f2,3)  ) 

$(3,4,4)  =  B(l,3)*$(l,3,l)  *  B(2,3)*($(2,2,2)+$(3,2,1»/RR) 

1  +  B(3,3)*($(l,2,2)<-${2,3,1))  -  D  ( 1 ,3 )  ♦$(  3  ,4 , 1 ) 

2  +  D(2,3)*{$(2,2,2)/RR-$(3,2,3) ) 

3  +  0(3,3)*2.*($(2,3,l)/RR-$(3,3,2)) 

$(3,4,3)  =  B(l,3)*$(l,2,2)  +  B ( 2 , 3 ) ♦( $( 2 , 1 ,3 )♦ $ C 3 , 1 ,2 )/ RR ) 

1  +  B(3,3)*( $( l,l,3)+$(2,2,2) )  -  0 { 1 ,3) *$ ( 3 , 3 ,2 ) 

2  +  D(2,3)^( $(2,l,3)/RR-$(3,l,4) ) 

3  *  D(3,3)*2.*($(2,2,2)/RR-$(3,2,3)) 


F(13,K,L)  =  QX  =  MX,X  ♦  MXY,Y 
F(14,K,L)  =  QY  =  MY,Y  +  MXY,X 

F{13,K,L)  =  $(1,4,4)  +  $(3,4,3) 
F(14,K,L)  =  $(2,4,4)  +  $(3,4,4) 


RA  =  QX  ♦  MXY,Y 
RB  =  QY  *■  MXY,X 


IF(K.EQ-l)  RA(1,L) 
1F(K.EQ.25)  RA(2,L) 
IF(L.EQ.l)  RB(l,K) 
IF(L.EQ.25)  RB(2,K) 
100  CONTINUE 

TO  NORMALIZE 

KMAX  =  14 


-  (  F(13,K,L)*  $(3,4,3)  ) 

F(13,K,L)+  $(3,4,3) 

-  (  F(14,K,L)+  $(3,4,4)  ) 

F(14,K,L)+  $(3,4,4) 


IF 

( 

IREACT  .NE 

• 

0 

)  GO 

IF 

( 

lOUT  .EQ. 

1 

) 

KMAX 

IF 

( 

lOUT  .EQ. 

2 

) 

KMAX 

IF 

( 

lOUT  .EQ. 

3 

) 

KMAX 

101  CONTINUE 

CALL  NRMLIZ  (  1,  KMAX  ) 

WRITE  (6,600)  NMW,  FMAX(l) 

600  FORMAT  ( • ITHE  •  ,A1,  '  DEFLECTIONS  DIVIDED  BY  ', E15.6 ,'/ 10000 
1»  ) 

CALL  OUT  (  1) 

I^IOUT 

IF(I.EQ.1.0R.I.EQ.6.0R.I.EQ.7.0R.I.EQ.8)  GO  TO  150 
WRITE  (6,600)  NMU,  FMAX(2) 

CALL  OUT  (  2) 

WRITE  (6,600)  NMV,  FMAX(3) 

CALL  OUT  (  3) 

IF  (  lOUT  .EQ.  2  .OR.  lOUT  .EQ.  3  )  GO  TO  150 
220  WRITE  (6,680)  FMAX(IO) 

680  FORMAT  ( • IMX  DIVIDED  BY  • , E 15. 6 , • /lOOOO  FOLLOWS') 

CALL  OUT  (10) 

WRITE  (6,690)  FMAX(ll) 

690  FORMAT  ( •  IMY  DIVIDED  BY  • ,E15.6, ' /lOOOO  FOLLOWS') 

CALL  OUT  (11) 

WRITE  (6,700)  FMAX(12) 

700  FORMAT  ( • IMXY  DIVIDED  BY  ' ,E15.6, ' /lOOOO  FOLLOWS') 

CALL  OUT  (12) 

WRITE  (6,710)  FMAX( 13) 


SS8R112 

SS8R113 

SS8R114 

SS8R115 

SS8R116 

SS8R117 

SS8R118 

SS8R119 

SS8R120 

SS8R121 

SS8R122 

SSaR123 

SS8R124 

SS8R125 

SS8R126 

SS8R127 

SS8R123 

SS8R129 

SSSRliO 

SS8Ri31 

SS8R132 

SS8R133 

SS8R134 

SS8R135 

SS8RI36 

SS8R137 

SS8R138 

SS8Rli9 

SS8R140 

SS8R141 

SS8R142 

SS8R143 

SS8R144 

SS8R145 

SS8R146 

SS8R147 

FaLL0WSS8R148 

SS8R149 

SS8R150 

SS8R151 

SS8R152 

SS8R153 

SS8R154 

SSaR155 

SS8R156 

SS8R157 

SS6R158 

SS8R159 

SS8R160 

SS8R161 

SSaK162 

SS8R16i 

SS8R164 

SS8R165 

SS8R166 

SS8R167 
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710  FORMAT  ( ' IQX  DIVIDED  BY  • ,E 15.6 , • /lOOOO  FOLLOWS*! 

CALL  OUT  (13) 

WRITE  (6,720)  FMAXI14) 

720  FORMAT  ( • IQY  DIVIDED  BY  • ,E 15.6, • /lOOOO  FOLLOWS') 

CALL  OUT  (14) 

150  IF  (  IREACT  .EQ.  0  )  GO  TO  900 
C  «=!'  POINT  SPRING  REACTIONS 

IF  (  NPTSUP  .EQ.  0  )  GO  TO  170 
DO  160  J=l, NPTSUP 
K  =  IGSPRX(J) 

L  =  IGSPRY(J) 

FO  =  -  F(1,K,L)  *  PKC(J)  ♦  FMAXd) 

160  WRITE  (6,650)  K,L,FD 

650  FORMAT  (  'OTHE  REACTION  AT  GRID  POINT  *13,*, *13,'  IS  *,£15. 7) 
170  CONTINUE 

IF  (  NLNSPR  .EQ.  0  )  GO  TO  725 
DO  210  J=l, NLNSPR 

IF  (  ITAGLS(J)  .EQ.  2  )  GO  TO  190 
L  =  IDISLS(J) 

DO  180  K=l,25 

180  RLN(K)  =  -  F(1,K,L)  *  PLINE(J)  *  FMAXd) 

WRITE  (6,660)  L,  (  RLN(K),  K=l,25  ) 

660  FORMAT  (  »OTHE  REACTION  OF  THE  LINE  SPRING  ALONG  GRID  LINE  *13, 
1  •  PARALLEL  TO  THE  X  AXIS  FOLLOWS •/( 5E15 .7) ) 

GO  TO  210 
190  K  =  lOISLS(J) 

DO  200  L=l,25 

200  RLN(L)  =  -  F(1,K,L)  *  PLINE(J)  ♦  FMAXd) 

WRITE  (6,670)  K,  I  RLN(L),  L=l,25  ) 

670  FORMAT  COTHE  REACTION  OF  THE  LINE  SPRING  ALONG  GRID  LINE  *13, 

1  »  PARALLEL  TO  THE  Y  AXIS  FOLLOWS •/( 5E 15 .7) ) 

210  CONTINUE 
C  **  CORNER  REACTIONS 

725  F{12,1,1)  =  -2.  «F(12,1,1)  *  FMAX(12) 

F{12,1,25)  =  2.  *  F(12,l,25)  *  FMAX(12) 

F{12,25,1)  =  2.  *  F(12,25,l)  *  FMAX(12) 

F{12,25,25)  =  -2.  *  Fd2,25,25)  *  FMAX(12) 

WRITE  (6,730)  (  RA(1,L),  L=l,25  ) 

730  FORMAT! IHl'THE  REACTIONS  ALONG  X=0  FOLLOW*/ dH07El6. 7) ) 

WRITE  (6,740)  (  RA(2,L),  L=l,25  ) 

740  FORMAT! IHO/*  THE  REACTIONS  ALONG  X=A  FOLLOW* /( 1H07E16.7) ) 

WRITE  (6,750)  (  R8(1,K),  K=l,25  ) 

750  FORMATdHO/*  THE  REACTIONS  ALONG  Y=0  FOLLOW '/( 1H07E16. 7)  ) 

WRITE  (6,760)  (  RB(2,K),  K=l,25  ) 

760  FORMATdHO/*  THE  REACTIONS  ALONG  Y=B  FOLLOW  '  /  ( 1H07E 16 .7  ) ) 

WRITE  (6,770)  F(12,l,l) 

770  FORMATdHO/'  THE  CORNER  REACTION  AT  0,0  IS*  E16.7) 

WRITE  (6,780)  F(12,25,l) 

780  FORMATdH  /*  THE  CORNER  REACTION  AT  A,0  IS*  E16.7) 

WRITE  (6,790)  F(12,l,25) 

790  FORMATdH  /•  THE  CORNER  REACTION  AT  0,B  IS*  E16.7) 

WRITE  (6,800)  F(12,25,25) 

800  FORMATdH  /*  THE  CORNER  REACTION  AT  A,B  IS*  EI6.7) 

900  IF  (  lOUT  .GE.  3  )  CALL  STRESS 
999  RETURN 
END 
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CC 


00224 


SUBROUTINE  PRINT 

THIS  SUBROUTINE  CONTROLS  THE  PRINTING  OF  GRID  POINT  OUTPUT. 


DIMENSION  T(  150, 150) 

DIMENSION  U(50,50),  Q(150),  S(150) 
DIMENSION  W0RK1(150),  W0RK2(150), 

DOUBLE  PRECISION  T 

COMMON  U 


ITIME(12), 


SS8S000 
SS8S001 
.  SS8S002 

SS8S003 
SS8S004 
SS8S005 
TIMEC50)SS8S006 
SS8S007 

ssasoo8 

ssasooy 


COMMON  / 

BLOCK  / 

T 

SS8S010 

COMMON  / 

CNTROL  / 

ID,  IFLAGB,  I$(7),  KEY 

SS8S011 

COMMON  / 

NUMBER  / 

Ni(6) , 

NTWY,NMOOES,M$( 12) ,NUVW 

,NUV,NW, ITX,ITY 

SS8S012 

COMMON  / 

$TIME  / 

TIME, 

I  TIME 

SS8S013 

COMMON  / 

PARAM  / 

Q» 

S,  WORKl, 

W0RK2 

SS8S014 

COMMON  / 

MODES  / 

MMI50) , 

NNI50) 

SS8S015 

SS8S016 

IF  (  KEY 

.EQ.  1  ) 

GO  TO 

10 

SS8S017 

IF  (  KEY 

.EQ.  2  ) 

GO  TO 

20 

SS8S018 

IF  1  KEY 

.EQ.  3  ) 

GO  TO 

30 

SS8S0i9 

**  STATIC  DEFLECTION 

SS8S020 

10  CONTINUE 

SS8S021 

WRITE  (6 

,48)  (  WORKKI), 

I=1,NUVW  ) 

SS8S022 

48  FORMAT  ( 

•  ITHE  CONTRIBUTIONS  OF  THE  SERIES  TERMS 

TO  DEFLECTION 

F0LLSS8S023 

lOW'/ ( IX, 

10E12.4) ) 

SS8S024 

c  ** 
20 


c  ** 

30 


CALL  OISPLA  I  WORKl,  1  ) 

GO  TO  1000 
FREE  VIBRATION 
CONTINUE 

DO  9990  I=1,NUVW 

IF  (  WORKKI)  .LE.  .5  )  GO  TO  9990 
ISTART  =  I 
GO  TO  9991 
CONTINUE 

IFIN  =  ISTART  +  NMODES  -  1 
00  90  I=ISTART,IFIN 

WRITE  (6,60)  WORKKI),  MM{  I  ) ,  NN(I),  (  T(I,J),  J=1  ,NUVW  I 
FORMAT  (UTHE  FREQUENCY  IS  SEia.?,'  CPS.  FOR  M  =  ',12,', 

1  I2,'.'/'0THE  CONTRIBUTIONS  OF  THE  SERIES  TERMS  FOLLOW'/ 

2  (1X,10E12.4)) 

DO  70  J=1,NUVW 
W0RK2(J)  =  T(I,J) 

CALL  DISPLA  (  W0RK2,  2  ) 

CONTINUE 
GO  TO  1000 
BUCKLING 
CONTINUE 

DO  200  I=1,IFLAGB 
BIG  =  0.1 
NSAVE  =  0 
DO  180  J=1,NW 

IF  (  ABS  IU(I,J))  .LE.  BIG  )  GO  TO  180 
BIG  =  ABS  IU( I, J) ) 

NSAVE  =  J 
W0RK2(J)  =  U(I,J) 

M  =  ITX 
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N  =  ITY  SS8S056 

IF  I  NSAVE  .EQ.  II  GO  TO  6  SS8S057 

DO  5  J=2fNSAVE  SS3S058 

IF  (  N+l-ITY  .GE.  NTWY  I  GO  TO  4  SS8S059 

N  =  SS8S060 

GO  TO  5  SS8S061 

4  N  =  ITY  SS8S062 

M  =  M+1  SS8S063 

5  CONTINUE  SS8S064 

6  CONTINUE  SS8S065 

WRITE  (6,190)  WORKl(l),  M,  N,  (  W0RK2(J),  J=1,NW  I  SS8S066 

190  FORMAT  (‘OTHE  BUCKLING  EIGENVALUE  IS*  E16.7,'  FOR  M  ='I3,',  N  =•  SS8S067 

1  I3,'.'/*0THE  CONTRIBUTIONS  OF  THE  SERIES  TERMS  FOR  W  F0LLSS8S068 

20W'/(1X,10E12.4))  SS8S069 

CALL  DISPLA  (  W0RK2,  3  I  SS8S070 

200  CONTINUE  SS8S071 

1000  CONTINUE  SS8S072 

CALL  STATUS  (  ITIME  )  SS8S073 

ET  =  .01*ITIME(8)  -  TIME(l)  SSaS074 

MINUTE  =  INT  (  ET/60.  )  SS8S075 

SEC  =  AMOD  {  ET  ,  60.  )  SS8S076 

ISEC  =  SEC  SS8S077 

WRITE  (6,66)  MINUTE,  ISEC  SS8S078 

66  FORMAT  (’OTHE  EXECUTION  TIME  FOR  THIS  PROBLEM  WAS  ',13,'  MINUTES,  SS8S079 

l',I2,'  SECONDS.')  SS8S030 

RETURN  SSSSOai 

END  SSaS082 


CC  =  00083 


c 

c  *« 
c 


SUBROUTINE  STRESS 


THIS  SUBROUTINE  CALCULATES  STRESSES 


DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

COMMON  /  / 
COMMON  /  / 
L 

COMMON  /  ( 
COMMON  /  h 


F( 15,25,251 , 
A(3,3)  , 
THETAI40) , 
C12( 40) , 
EC(3,40) , 
SIGS(5 ), 


FMAXI 5) 
BI3,3) , 
THICK(40) , 
C66(40) , 
ET( 3,40) , 
SMAR(5) , 


STRAINS. 


DI3,3) , 
CI1(40) , 
ANGCKt3,10) , 
SIG(5) 
EPSNI5) , 


ARRAYS 

ABO 

CNTROL 

NUMBER 


FMAX 

A,  B,  D,  RHAB,  THETA,  THICK,  ( 
C66,  C12,  EC,  ET,  ANGCK,  MCHK, 

I$(5),  IMATL,  J$(2),  lOUT 
NPLYS 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


X/'X'/,  Y/'Y'/,  YO/'LOW'/,  UP/'UPP*/ 

$X/‘X-'/,  $Y/*Y-*/,  $Z  /'XY'/,  $2/'2-'/, 

SIG( 1  )/'NORM'/,  SIGI2)/'AL  S'/,  S IG (3 ) / • TRES ' / 
SIG(4)/'SES  •/,  SIG(5)/'  ’/ 


SS8TOOO 
SS8T001 
SS8TG02 
SS8T003 
SS8T004 
Zt41)  SS8T005 

C22(40)  SS8T006 
MCHK(3)  SS8T007 
SS8T008 
EPSS(5)  SSdT009 
SS8T010 
SS8T0il 
C22,  SS8T012 

SS8T013 
SS8T014 
SS8T015 
SS8T016 
SS8T017 
$3  /' 12'/SS8T018 
SS8T019 


SIGSl  D/'SHEA'/, 
SIGS(4)/'SeS  •/, 
SMAR( 1)/'MARG'/, 
SMAR(4)/' AFET'/, 
EPSN( l)/'NORM'/, 
EPSN(4)/'NS  •/, 
EPSSI  D/'SHEA'/, 
EPSS14)/'NS  •/, 


SIGS(2)/'R  S'/, 
SIGS(5)/'  '/ 
SMAR(2)/'INS  '/, 
SMAR(5)/' Y'/ 
EPSN(2)/'AL  S'/, 
EPSN(5)/'  '/ 
EPSS(2)/'R  S'/, 
EPSSI5)/'  */ 


SIGS(3)/'TRES'/ 


SMAR13)/'0F 


EPSNI3)/'TRAI 


EPSSI3)/'TRAI'/ 


FMIN  =  100. 

VAL  =  1. 

I  FORMAT  ('O' ,25F5.2) 

I  =  lOUT 

IF( I.EQ.4.0R.I.EQ.6.0R.I.EQ.7.0R.I.EQ.8)  GO  TO  51 
WRITE  (6,20)  X,  FMAX(4) 

CALL  OUT  (  4) 

I  FORMAT  CITHE  MIDDLE  SURFACE  STRAIN  IN  THE  ',A1,'  DIRECTION  0 
ID  BY  •,E15.6,'/10000  FOLLOWS') 

WRITE  (6,20)  Y,  FMAX(5) 

CALL  OUT  (  5) 

WRITE  (6,30)  FMAX(6) 

CALL  OUT  (  6) 

I  FORMAT  CITHE  MIDDLE  SURFACE  SHEAR  STRAIN  DIVIDED  BY  ',E15.6, 
1  '/lOOOO  FOLLOWS' ) 

WRITE  (6,40)  X,  FMAX(7) 

CALL  OUT  (  7) 

I  FORMAT  CITHE  CURVATURE  IN  THE  ',A1,'  DIRECTION  DIVIDED  BY  ', 


SS8T020 

RES'/  SS8T021 

SS8T022 

F  S'/  SS8T023 

SS8T024 

RAI'/  SS8T025 

SS8T026 

RAI'/  SS8T027 

SS8T028 
SS8T029 
SS8T030 
SS8T031 
SS8T032 
SS8T033 
SS8T034 
SS8T035 
SS8T036 

DIRECTION  0IVI0ESS8T037 
SS8T038 


I  E15. 6, '/lOOOO  FOLLOWS' ) 

WRITE  (6,40)  Y,  FMAX(8) 

CALL  OUT  (  8) 

WRITE  (6,50)  FMAX(9) 

CALL  OUT  (  9) 

FORMAT  CITHE  TWIST  CURVATURE  DIVIDED 

IF  (  lOUT  .EQ.  3  )  GO  TO  999 

IF  (  IMATL  .EO.  1  .OR.  IMATL  .EQ.  4  ) 


SS8T039 

SS8T040 

SS8T041 

SS8T042 

AIN  DIVIDED  BY  ',E15.6,  SS8T043 

SS8T044 

SS8T045 

SS8T046 

DIRECTION  DIVIDED  BY  ',  SS8T047 

SS8T048 

SS8T049 

SS8T050 

SS8T051 

SS8T052 

BY  ',E15.6,'/10000  FOLLOWS' ) SS8T053 

SS8T054 

GO  TO  150  SS8T055 
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C  ♦*  SOLID  LAMINATE 
IF  <  lOUT  .LT. 

NP  =  NPLYS  ♦  1 

DO  100  N=1,NP 
ITEST  =  0 
J  =  N 

IF  (  Z(N>  .GE. 

IF  (  Cll(J)  .LE. 
DO  60  JJ=1,3 
J3  =  JJ+3 

J6  =  JJ+6 

DO  60  K=l,25 
DO  60  L=l,25 


7  )  GO  TO  999 


0  ) 


10. 


J  = 
) 


N  -  1 
GO  TO 


100 


60 

70 


F(JJ,K,L)  =  FMAXIJ3)*FIJ3,K,L)  *  Z ( N) ♦F MAXI J6 ) ♦F ( J6 , K ,L ) 


IF  (  ITEST  .NE. 
ANG  =  THETAIJ) 
CALL  ROTATE  I  10, 
CALL  NRMLIZ  (  10, 
CALL  MARGIN  I  10, 


0  )  J  =  N 


) 


80 


1,  ANG 
12  ) 

13,  J  ) 

WRITE(6,80) J,THETA( J) ,EPSN, $1 ,FMAX( 10) 

CALL  OUT  (10) 

WRITE(6,80) J,THETA(J) ,EPSN, $2,FMAX(  11) 

CALL  OUT  Ill) 

WRITE(6,80)J,THETA( J) ,EPSS,$3,FMAX( 12) 

CALL  OUT  (12) 

WRITE(6,80) J,THETA( J) ,SMAR, $1,VAL 
CALL  OUT  (13) 

WRITE(6,80) J,THETA( J) ,SMAR,$2,VAL 
CALL  OUT  (14) 

WRITE(6,80) J,THETA( J),SMAR,$3,VAL 
CALL  OUT  (15) 

FORMAT  (‘IFOR  LAYER  ',12,'  (  THETA  =  •,F6.2,'  ),  THE  •,4A4, 
IN  THE  SAZ,'  DIRECTION  DIVIDED  BY  *  ,E  15.6 ,»/ 10000  FOLLOW*) 
CALL  SEARCH  (  J , 1 , 13, 15 , MH, KH , LH , I H , NH, FMIN  ) 

IF  (  ABS(Z(N))  .GT.  l.E-4  )  GO  TO  100 
IF  (  ABS(THETA(N)  -  THETA(N-l))  .LT.  .01  )  GO  TO 

)  GO  TO  100 


Al, 


100 


100 


IF  (  ITEST 
ITEST  =  1 
GO  TO  70 
CONTINUE 


.EQ.  1 


IF 

( 

MH 

.EQ. 

13 

) 

$= 

$1 

IF 

( 

MH 

.EQ. 

14 

) 

$=« 

$2 

IF 

( 

MH 

.EQ. 

15 

) 

$= 

$3 

WRITE 

(6 

,110) 

$ 

, 

IH, 

KH 

110 


150 


(' ITHE  MINIMUM  MARGIN 
DIRECTION  IN  LAYER 
'.  ITS  VALUE  IS  •,F5.2) 


FORMAT 

l',A2,' 

2  ' . 

GO  TO  999 

ISOTROPIC  OR  SANDWICH 

CONTINUE 

DO  600  N=l,2 

SUR  =  YO 

IF  (N.EQ.2)  SUR  = 

IF  (  IMATL  .EQ.  4 
I  =  1 
J  *  N 


LH,  FMIN 

OF  SAFETY 


OCCURS  FOR  A  STRAIN  IN  THE 
Y  =  ',12, 


UP 

) 


GO  TO  160 
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GO  TO  170 
160  1=1 
J=1 

IF  (N.EQ.l)  GO  TO  170 
1=3 
J  =  4 

170  CONTINUE 

C  ♦*  CALCULATE  COMBINED  STRAINS  IN  PANEL  AXES. 

DO  180  JJ=1,3 
J3  =  JJ*3 
J6  =  JJ+6 
00  180  K=l,25 
DO  180  L=l,25 

180  F(JJ,K,L)  =  FMAXI  J3)*F(  J3,K,LI  *■  ZIJ)  *  FMAXI J6)  *F  ( J6 ,  K,L  ) 

IF  (  lOUT  .LT.  4  .OR.  lOUT  .EQ.  7  )  GO  TO  240 
C  **  CALCULATE  COMBINED  STRESSES  IN  PANEL  AXES. 

DO  190  K=l,25 
DO  190  L=l,25 

F(10,K,L)  =  CIKI)  ♦  F(1,K,L)  +  012(1)  ♦  F(2,K,L) 

F(ll,K,L)  =  Cl2(n  ♦  F(1,K,L)  +  C22(I)  ♦  F(2,K,L) 

190  F(12»K,L)  =  C66(n  *  F(3,K,L) 

CALL  NRMLIZ  (  10,  12  ) 

WRITE(6,200)  SIG  , SUR , $X ,FMAX( 10) 

CALL  OUT  (10) 

WRITE(6,200)  SIG  , SUR, $Y, FMAXI 1 1 ) 

CALL  OUT  (11) 

WRITE (6, 200)  SI GS, SUR, $Z, FMAXI 12) 

CALL  OUT  (12) 

200  FORMAT  CITHE  •,4A4,A1,*  ON  THE  ',A3,*ER  SURFACE  IN  THE  ',A2, 
1  •  DIRECTION  DIVIDED  BY  ' ,E15.6, '/lOOOO  FOLLOW') 

240  CONTINUE 

IF  (  lOUT  .LT.  7  )  GO  TO  600 
IF  (  IMATL  .EQ.  4  )  GO  TO  400 
C  *’!'  ISOTROPIC 

CALL  NRMLIZ  (  1,  3  ) 

CALL  MARGIN  (  1,  10,  I  ) 

WRITE(6,200)  EPSN,SUR,$X,FMAX(  1) 

CALL  OUT  (  1) 

WRITE(6,200)  EPSN, SUR, $Y, FMAXI  2) 

CALL  OUT  (  2) 

WRITE(6,200)  EPSS, SUR, $Z, FMAXI  3) 

CALL  OUT  I  3) 

WRITEI6,200)  SMAR,SUR,$X,VAL 
CALL  OUT  (10) 

WRITEI6,200)  SMAR,SUR,$Y,VAL 
CALL  OUT  III) 

WR1TEI6,200)  SMAR,SUR,$Z,VAL 
CALL  OUT  (12) 

CALL  SEARCH  I  I , N, 10, 12 , MH, KH ,LH, I H ,NH, FMIN  ) 

GO  TO  600 
C  **  SANDWICH 

400  NCHK  =  MCHKII) 

DO  500  NN=1,NCHK 
ANG  =  ANGCKI  I,NN) 

CALL  ROTATE  I  10,  1,  ANG  ) 

CALL  NRMLIZ  I  10,  12  ) 
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CALL  MARGIN  (  10,  13,  I  ) 

CALL  SEARCH  (  I ,NN, 13, 15 ,MH ,KH,LH , I H, NH , FMI N  ) 
WRITE (6,4101  ANG,EPSN,SUR,$1,FMAX(10) 

CALL  OUT  (10) 

WRITE (6, 410)  ANG,EPSN,SUR,$2,FMAX( 11) 

CALL  OUT  (11) 

WRITE (6,410)  ANG,EPSS,SUR,$3,FMAX( 12) 

CALL  OUT  (12) 

WRITE(6,410)  ANG, SMAR,SUR,$1,VAL 
CALL  OUT  (13) 

WRITEI6,410)  ANG,SMAR,SUR,$2, VAL 
CALL  OUT  (14) 

WRITE(6,410)  ANG, SMAR,SUR,$3,VAL 
CALL  OUT  (15) 

410  FORMAT  ( •  IFOR  THETA  =  »,F6.2,S,THE  •,4A4,A1,' 

I'ER  SURFACE  IN  THE  -  -  -  -  . 

2  E15.6,  VIOOOO  FOLLOW') 

500  CONTINUE 
600  CONTINUE 


•,A2,'  DIRECTION  DIVIDED  BY 


ON 

• . 


THE 


»A3, 


IF 

( 

lOUT  .LT 

.  7 

)  GO 

TO 

999 

IF 

( 

IMATL  .EQ.  4 

)  GO 

TO 

620 

IF 

( 

MH 

.EQ. 

10  ) 

$=$1 

IF 

( 

MH 

.EQ. 

11  ) 

$=$2 

IF 

( 

MH 

.EQ. 

12  ) 

$=$3 

IF 

( 

NH 

.EQ. 

1  ) 

SUR  = 

YO 

IF 

( 

NH 

.EQ. 

2  ) 

SUR  = 

UP 

WRITE 

(6 

,610) 

$ , 

SUR, 

KHy 

LH, 

FORMAT  ( 

•  ITHE 

MIN 

IMUM  MARGIN  OF 

A2, 

•  0 

IRECT 

ION 

ON  THE 

A3,  'E 

/•  ITS  VALUE  IS 

F6.2) 

FOR 

S  • 


A  STRAIN  IN  THE 
,  12, •  ,  Y  =  • ,  12, 


GO  TO  999 

620  ANG  =  ANGCK( IH,NH) 
IF  (  MH  .EQ.  13  ) 
IF  (  MH  .EQ.  14  ) 
IF  I  MH  .EQ.  15  ) 


$=$1 
$=$2 
$=$3 

WRITE  (6,630)  $,  ANG,  IH,  KH,  LH,  FMIN 

630  FORMAT  CITHE  MINIMUM  MARGIN  OF  SAFETY  OCCURS 
l',A2,'  DIRECTION  AT  AN  ANGLE  THETA  OF  •,F6.2,' 


FOR  A  STRAIN  IN  THE 
DEGREES  IN  LAYER  • 


2  ,12,'.'/'  IT  IS  LOCATED  AT  X  = 

3UE  OF  •,F6.2) 

999  RETURN 
END 


12, 


Y  = 


12, 


AND  HAS  A 
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SUBROUTINE  ROTATE 


C  ** 
C  ** 
C  ** 
C  ** 


THIS 

FROM 


SUBROUTINE 
THETA  =  0. 


PERFORMS  A 
TO  THETA  = 


TRANSFORMATION  OF  COORDINATES 
ANG  . 


DIMENSION 


F( 15,25,25) 


COMMON 


ARRAYS 


Ml  =  MHH 

M2  =  M+2 

MXl  =  MX+1 

MX2  =  MX+2 

A  =  ANG  *  .0174533 

C  =  COS(A) 

S  =  SIN(A) 

C2  =  C*C 
S2  =  S*S 
SC  =  S*C 
DO  10  K=l,25 
DO  10  L=l,25 

F(M,K,L)  =  FIMX,K,L)*C2  ♦  F (MX1,K,L)*S2  +  F ( MX2 ,K, L )*SC 
F(M1,K,L)  =  F(MX,K,L)*S2  +  F(MX1,K,L)*C2  +  F ( MX2 , K,L) *SC 
F{M2,K,L)  =  -2.*SC*(  F{MX,K,L)  -  F(MX1,K,L)  )  +  F(MX2,K, 
RETURN 
END 


SS8U000 
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IRDINATES  SS8U002 
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SS8U005 

SS8U006 

SS8U007 

SS8U008 

SS3U009 

SS8U010 

SS8U011 

SS8U012 
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SS8U0i4 
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,K,L)*SC  SS8U022 

F(MX2,K,L)*IC2-S2)SS8U023 

SS8U024 

SS8U025 
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SUBROUTINE  NRMLIZ  I  Ml,  M2  J 

C  *♦ 

C  **  THE  INPUT  ARRAYS  ARE  NORMALIZED  BY 
C  ♦* 

DIMENSION  F(15,25,25),  FMAXIIS) 
C 

COMMON  /  ARRAYS  /  F,  FMAX 

C 

DO  30  M=Ml,M2 
FMAXIMI  =  F(M,l,l) 

DO  10  K=l,25 
DO  10  L=l,25 
FD  =  ABS  (  F(M,K,LI  ) 

IF  (  FD  .GT.  FMAX(M)  )  FMAX(M)  =  FD 
10  CONTINUE 

IF  (  ABS  I  FMAXIMI  )  .LT.  l.E-10  I 
DO  20  K=l,25 
DO  20  L=l,25 

20  F(M,K,L)  =  F(M,K,L)  /  FMAXIM) 

30  CONTINUE 
RETURN 
END 
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THEIR  LARGEST  VALUES 
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SUBROUTINE  MARGIN  I  MSTRN,  MMAR,  LAY  ) 

C  ** 

C  **  THIS  SUBROUTINE  CALCULATES  MARGINS  OF  SAFETY  ACCORDING 
C  **  TO  THE  MAXIMUM  STRAIN  THEORY. 

C  *♦ 

DIMENSION  F(15,25,25»,  FMAXIISI,  EA(3) ,  ET(3,40),  EC(3,40) 
C 

COMMON  /  ARRAYS  /  F,  FMAX 

COMMON  /  ABO  /  DUM(268I,  EC,  ET 

C 

DO  10  M=l,3 
1=  M+MSTRN  -1 
J=  M+MMAR  -I 
DO  10  K=l,25 
DO  10  L=l,25 
EA(M)  =  ET(M,LAY) 

IF  (  F(I,K,L>  .LE.  0.  )  EA(M)  =  EC(M,LAY) 

F(J,K,L)  =  9.0 

IF  (  F(I,K,L)  .NE.  0.  )  F(J,K,LJ  =  E  A  (  M) /F  ( I ,  K ,  L ) /FMAX  ID  -  1. 
IF  (  F(J,K,L)  .GE.  9.99  )  F(J,K,L)  =  9.98 
IF  (  F(J,K,L)  .LE.-9.99  )  F(J,K,L»  =-9.98 
10  CONTINUE 
RETURN 
END 
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SUBROUTINE  REDUCE  (  NOPT » V, Z1 ,Z2 ,Z3»Z4 t WORKl ,WORK2 tNUV t NW  I 
DIMENSION  V(150»150),  Zl(100,l00),  Z2(100,50),  Z3{50»100), 

1  Z4(50,50)«  W0RK1(150)»  WORK2( 150) 

DO  10  1=1, NUV 
DO  10  J=l,NUV 
10  ZHI,J)  =  V(  I,J) 

DO  20  1=1, NUV 
DO  20  J=l,NW 
20  Z2( I ,J)  =  V( I,J+NUV) 

DO  30  1=1, NW 
DO  30  J=1,NUV 
30  Z3(  I,J)  =  V(  H-NUV,J) 

CALL  GJINV  (  Zl, NUV, 0,IER, WORKl, W0RK2, 100  ) 

CALL  SWITCH  {  Zl,  NUV,  50,  1.,  0.  ) 

CALL  YOSFEM  {  2 , Z  1 , NUV, NUV, 50 , Z2 ,NW , 50 , V, WORKl  ) 

CALL  YOSFEM  (  3,Z3,NW,NUV,25,Z2,NW,50,Z4,W0RK1  ) 

DO  40  1=1, NW 
DO  40  J=1,NW 

40  Z4(I,J)  =  V( 1+NUV, J+NUV)  -  Z4(I,J) 

50  DO  60  1=1, NW 
DO  60  J=1,NW 
60  V(  I,J)  =  Z4( I,J) 

999  RETURN 
END 


SS8W025 

SSbW026 

SS8W027 

SS8W028 
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SUBROUTINE  FLEX 

C  THIS  SUBROUTINE  CALCULATES  THE  FLEXIBILITY  MATRIX  AT  THE 

C  DESIRED  POINTS. 

COMMON  /  FLEXBL  /  XP(50),  YP(50) 

COMMON  /  ZWORK  /  WI50,50),  EM(50f50),  FL(50f50), 

1  W1(50J,  W2(50) 

COMMON  /  VALUES  /  £14,2,3,10,25) 

COMMON  /  NUMBER  /  NPLYS,  NTX,  N$(2),  NTY,  M$(15),  MAT,  NUV,  NW 
COMMON  /  CNTROL  /  I $(14),  IFLEX 
COMMON  /  ARRAYS  /  V(150,150) 

DO  10  1=1, NW 
DO  10  J=1,NW 
10  W( I,J)  =  V(I,J) 

CALL  GJINV  (  W,  NW,  0,  lER,  Wl,  W2 ,  50  ) 

DO  20  11=1, IFLEX 
I  =  XP{  1 1  )*24  +  1 
J  =  YPl 1 1 )*24  +  1 
IF  (  I.LT.l  )  1=1 
IF  (  J.LT.l  )  J=1 
IF  {  I.GT.24)  1=24 
IF  (  J.GT.24)  J=24 
IPl  =  I  +  1 
JPl  =  J  +  1 

DELX  =  XP( 1 1 )*24.  -  ( I-l) 

DELY  =  YP( II )*24.  -  ( J- 1 ) 

DO  20  L  =  1,NTX 
DO  20  K  =  1,NTY 
JJ  =  NTY*(L-1)  +  K 

EVX  =  E(1,1,3,L,I)*(1.-DELX)  +  E ( 1 , 1 , 3 , L, I  PI ) ♦DELX 
EVY  =  E(1,2,3,K,J)*(1.-DELY)  +  E ( 1 , 2 , 3 , K, JP 1 ) ♦DELY 
EM( I  I, JJ )  =  EVX  ♦  EVY 
20  CONTINUE 

DO  60  I  1  =  1, IFLEX 
DO  40  JJ=1,NW 
WKJJ)  =  0. 

DO  30  KK=1,NW 

30  WKJJ)  =  WKJJ)  +  W(JJ,KK)  *  EM(II,KK) 

40  CONTINUE 

DO  50  LL=1, IFLEX 
FL( I 1,LL)  =  0. 

DO  50  KK=1,NW 

50  FL(II,LL)  =  FL(II,LL)  *  EM(LL,KK)  ♦  WKKK) 

60  CONTINUE 

WRITE  (6,70) 

70  FORMAT  (* IFLEX IBILITY  MATRIX') 

DO  90  1=1, IFLEX 

WRITE  (6,80)  I,  (  FL(I,J),  J=l, IFLEX  ) 

80  FORMAT  ( ' OROW* , I  3// ( 1P6E 16. 6 ) ) 

90  CONTINUE 
RETURN 
END 
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non 


SUBROUTINE  KDF  (  8UCKNX  ) 

COMPUTES  AXIAL  BUCKLING  NX  FOR  IMPERFECT  ANISOTROPIC  CYLINDERS 

DIMENSION  AS(3*3)f  BS(3t3)*  0S(3#3»»  Wl(3).  W2(3) 

COMMON  /  ABD  /  A(3t3),  B(3t3)»  D(3,3) 

COMMON  /  GEOM  /  AA,  BB,  RR ,  S$(4)f  MU 
COMMON  /  CUBE  /  Pit  P2,  P3f  P4t  ROOT 
DIMENSION  ITIME(12) 

DIMENSION  ATAU(20»f  AM0A(20) 

REAL  MU 

FAC  =  100 
RHO  =  .707 
DO  10  1=1,3 
DO  10  J=l,3 
10  AS(I,J)  *  A{I,J) 

CALL  GJINV  (  AS,  3,  0,  lER,  Wl,  W2,  3  ) 

C  *♦  AS  =  A**- I 
DO  20  1=1,3 
DO  20  J=l,3 
20  BS(I,J»  =  -  B(I,J) 

CALL  YOSFEM  t  2,  AS,  3,  3,  3,  BS,  3,  3,  0,  Wl  ) 

C  BS  =  -  A**-l  *  B 

CALL  YOSFEM  I  3,  B,  3,  3,  3,  BS,  3,  3,  DS,  Wl  ) 

DO  30  1=1,3 
DO  30  J=l,3 

30  0S( I,J)  =  0( I,J)  +  DS(I, J) 

C  DS  =  D  -  B  *  A**-l  ♦  B 

GAM  =  l./SQRT(AS(2,2)*0S(l,l)  I 

ALP  =  0S< 1,1 I*GAM 

BET  =  BS(2,1)*GAM 

IMAX  =  10 

TAUO  =  0. 

FTAU  =  10. 

40  DO  100  1=1, IMAX 

ATAUII )  =  TAUO  +  I/FTAU 
TAU  =  ATAUl I ) 

D12  =  DS( 1, 1)*RH0**4  +  (  2.*DS(1,2)  +  4.*0S(3,3)  )  *RH0**2*TAU**2 
1  +  0SI2,2)*TAU**4 

All  =  AS(2,2J*RH0**4  +  (  2.*AS( 1,2)  +  AS(3,3)  )  ♦RH0**2*TAU**2 
1  ♦  AS( 1,1)*TAU**4 

A13  =  AS(2,2)*81.*RH0**4  +  (  2.*AS(1,2)  ♦  AS(3,3)  )*9.*RH0**2 
1  X'  TAU**2  *  AS(1,1)*TAU**4 
A21  =  -2.*AS(2,3)*RH0**3*TAU  -  2.  X-ASI 1 , 3)  ♦RH0*TAUX=*3 
A22  =  -A21 

A23  =  2.*AS(2,3)*27.*RH0**3*TAU  ♦  2.+AS ( 1 ,3 ) +3. ♦RH0*TAU**3 
Bll  =  BS(2, 1)*RH0**4  ♦  I  BS(1,1)  ♦  BS(2,2)  -  2. *83(3, 3)  ) *RH0**2 
1  *  TAU<=*2  +  BS(  1,2)*TAU**4 

Blip  =  Bll  -  2.*RH0*RH0/GAM 

B22  =  (  BS(3,1)  -  2.*8S(2,3)  )  ♦  RH0*43*TAU  +  (  BS(3,2) 

1  -  2.*BS(1,3)  )  *  RH0*TAU**3 

Cl  =  RHO*RHO  +  (  1.-2.*RHO*RHO*8ET)*x<2/4./RHO/RHO 

D1  =  AllX-All  -  A21*A21 

03  =  A13X‘A13  -  A23X'A23 

Al  =  012  +  I  (A11*B11P  -  A22*B22)  ♦  811P  +  (All*822  -  A22*B11P) 


SS8ZOOO 

SS8Z001 

SS8Z002 

SS8Z003 

SS8Z004 

SS8Z005 

SS8Z006 

SS8Z007 

SS8Z008 

SS8Z009 

SS8Z010 

SS8Z01I 

SS8Z012 

ssazoi3 

SS8Z014 

SS8Z015 

SS8Z016 

SS8Z017 

ssazoid 

SS8Z019 

SS8Z020 

SS8Z02i 

SS8Z022 

SS8Z023 

SS8Z024 

SS8Z023 

SS8Z026 

SS8Z027 

SS8Z028 

SS8Z029 

SS8Z030 

SS8Z031 

SS8Z032 

SS8Z033 

SS8Z034 

SS8Z035 

SS8Z036 

SS8Z037 

SS8Z038 

SS8Z039 

SS8Z040 

SS8Z041 

SS8Z042 

SS8Z043 

SS8Z044 

SS8Z045 

SS8Z046 

SS8Z047 

SS8Z043 

SS8Z049 

SS8Z050 

SS8Z051 

SS8Z0S2 

SS8Z053 

SS8Z054 

SS8Z055 


229 


I  ♦  B22  )  /  D1 

A2  =  4.*ALP=<=RH0*RH0/GAM 

A3  =  4.*MU*RH0*RH0*TAU*TAU*  (All*BllP  -  A22+B22I  *C1/D1 
A4  =  MU*ALP*  (1.  -  2.*RHO*RHO*BET)  ♦TAU*TAU 

A5  =  4.*MU*MU*RH0**4*TAU**4*C1*CI*  lAll/Dl  *  A13/D3  ) 

PI  =  A2 

P2  =  -  (A1  +  2.»A2*C1  +  A4) 

P3  =  2.»Al>i'Cl  +  A2*C1*C1  +  A4*C1  +  A3 
P4  =  -  (A1*C1*C1  *  A3*C1  +  A5) 

CALL  CUBIC 
AMOA(I)  =  ROOT 
100  CONTINUE 

CALL  MIN  (  AMDA,  IMAXt  IMIN  ) 

IF  (  IMAX  .EQ.  20  )  GO  TO  200 
TAUO  =  ATAU(  IMIN)  -  .1 
IMAX  =  20 
FTAU  =  100 
GO  TO  40 
200  CONTINUE 

FAC  =  AMOAI  IMIN  ) 

TAU  =  ATAUI IMIN) 

50  BUCKNX  =  2.*ALP*FAC/RR 

PBUCK  =  2.*KR*BUCKNX*3.14159 

WRITE  16,600)  RHO,  TAU,  FAC,  BUCKNX,  PBUCK 
600  FORMAT  { ' 0 1 MPERFECT ION  SENSITIVITY  ANALYSIS  FOR  FULL  CYLINDER 
1  RHO,  TAU,  LAMBOA-CR,  NX-CR,  P-CR*//'  ',5E20.6) 

RETURN 

END 
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SUBROUTINE  CUBIC 

SS8$000 

SOLVES  A  CUBIC  POLYNOMIAL  FOR  THE  REAL  ROOT  BY  NEWTON-RAPHSON 

SSBiOOl 

COMMON  /  CUBE  /  PI,  P2,  P3,  P4,  Y 

SS8$002 

X  =  1 

SS8$003 

I  =  0 

SS8$004 

1 

F  =  Pl*XX‘X*X  ♦  P2*X*X  ♦  P3*X  ♦  P4 

SS8$005 

1=1  +  1 

SS8$006 

FP  =  3.*P14X*X  +  2.*P2*X  +  P3 

SS8$007 

Y  =  X  -  F/FP 

SS8$006 

IF  (ABS(1-Y/X).LE.  .001  )  GO  TO  10 

SS8$009 

X  =  Y 

SS8$010 

IF  (  I  .LT.  10  »  GO  TO  1 

SS8$011 

10 

CONTINUE 

SS8$012 

A  =  PI 

SS8$013 

B  =  P1*Y  +  P2 

SS8$014 

C  =  P1*Y*Y  +  P2*Y  +  P3 

SS8$015 

DISC  =  B*B  -  4.*A»C 

SS8$016 

IF  (DISC)  20,30,30 

SS8$017 

20 

WRITE  (6,70» 

SS8$018 

70 

FORMAT  COOTHER  TWO  ROOTS  ARE  COMPLEX'! 

SS8$019 

GO  TO  100 

SS8$020 

30 

XI  =  (  -B  +  SQRT(OISC)  )  /2./A 

SS8$021 

X2  =  I  -B  -  SQRTIDISC)  )  /2./A 

SS8$022 

Y  =  AMINl  (  Y,X1,X2  ) 

SS8$023 

100 

CONTINUE 

SS8$024 

RETURN 

SS8$025 

END 

SS8$026 

CC  00027 


SUBROUTINE  OUT  (  N  ) 

c 

C  THIS  SUBROUTINE  PUTS  THE  ARRAYS  OF  OUTPUT  IN  A  FORM  FOR 

C  **  EFFICIENT  WRITING. 

c 

COMMON  /  ARRAYS  /  FI15,25,25),  FMAXIISI,  LIST{625) 

C 

DO  10  K=l,25 
DO  10  L=l,25 
J  X  (  K-1  )  *  25  +  L 
10  LISTIJ)  =  FIN,K,L)  ♦  10000 
WRITE  (6,20)  LIST 
20  FORMAT  ( 'O' ,2515) 

RETURN 

END 


SS8/000 

SS8/001 

SS8/002 

SS8/003 

SS8/004 

SS8/005 

SS8/006 

SS8/007 

SS8/D08 

SS8/009 

ssa/010 

SS8/011 

SS8/012 

SS8/01i 

SS8/014 


CC  =  00015 
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i 


SUBROUTINE  MIN  I  VEC,  N, 

IMIN  ) 

SS8 

000 

DIMENSION  VECINJ 

SS8 

001 

SMALL  =  10. 

SS8 

002 

DO  10  1=1, N 

SS8 

003 

IF  (  SMALL  .LT.  VECCI)  » 

GO  TO  10 

SS8 

004 

SMALL  =  VEC( I ) 

SS8 

005 

IMIN  =  I 

SS8 

006 

10  CONTINUE 

SS8 

007 

RETURN 

SS8 

008 

END 

SS8 

009 

CC  =  00010 
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